(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    326569,       7318]
NotebookOptionsPosition[    319995,       7209]
NotebookOutlinePosition[    320383,       7226]
CellTagsIndexPosition[    320340,       7223]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Alpha \:7ec7\:4f53", "Section",
 CellChangeTimes->{{3.7241523168583345`*^9, 
  3.7241523293011675`*^9}},ExpressionUUID->"ba4f40ee-e2c9-4788-ba54-\
44a78ec75fb7"],

Cell[CellGroupData[{

Cell["\:591a\:58f0\:90e8\:5e73\:7a33\:8fdb\:884c\:6c42\:6700\:4f18\:89e3", \
"Subsection",
 CellChangeTimes->{{3.7240733784185486`*^9, 3.7240733809247837`*^9}, {
  3.7240738113635035`*^9, 3.7240738138614893`*^9}, {3.7241523365914364`*^9, 
  3.7241524356719103`*^9}},ExpressionUUID->"fe755065-a28f-45aa-b815-\
c95c703872e8"],

Cell["mma \:63a5\:6536\:7684\:6570\:503c\:4e3a\:5341\:4e8c\:5e73\:5747\:5f8b\
\:503c\:ff0c0  \:4e3a\:4e2d\:592e C\:ff08C4\:ff09\:ff0c\:4f8b\:ff1a", "Text",
 CellChangeTimes->{
  3.7240737640541105`*^9, {3.7240737963132696`*^9, 3.724073833876254*^9}, {
   3.7240744043655972`*^9, 
   3.724074407051344*^9}},ExpressionUUID->"0090ccc7-6916-4730-8c47-\
d31eff41a0c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sound", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"SoundNote", "[", "i", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "12"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7240737723519154`*^9, 
  3.7240737823608027`*^9}},ExpressionUUID->"88ce7aa1-d993-46d1-8186-\
75c1de9fd7a6"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{0., 0.43198696602798653}, {0.95, 0.4438917279327484}],
           RectangleBox[{1., 0.4438917279327484}, \
{1.95, 0.45579648983751037}], 
          RectangleBox[{2., 0.45579648983751037}, {2.95, 0.4677012517422721}],
           RectangleBox[{3., 0.4677012517422721}, {3.95, 0.4796060136470343}],
           RectangleBox[{4., 0.4796060136470343}, \
{4.95, 0.49151077555179606}], 
          RectangleBox[{5., 0.49151077555179606}, {5.95, 0.5034155374565581}],
           RectangleBox[{6., 0.5034155374565581}, {6.95, 0.5153202993613198}],
           RectangleBox[{7., 0.5153202993613198}, {7.95, 0.5272250612660818}],
           RectangleBox[{8., 0.5272250612660818}, {8.95, 0.5391298231708438}],
           RectangleBox[{9., 0.5391298231708438}, {9.95, 0.5510345850756055}],
           RectangleBox[{10., 0.5510345850756055}, \
{10.95, 0.5629393469803675}], 
          RectangleBox[{11., 0.5629393469803675}, \
{11.95, 0.5748441088851295}], 
          RectangleBox[{12., 0.5748441088851295}, \
{12.95, 0.5867488707898912}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"13\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 61, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 61, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 63, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 63, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 65, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 65, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 66, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 66, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOn", "Note" -> 68, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               432, "NoteOff", "Note" -> 68, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               432, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               480, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               480, "NoteOn", "Note" -> 70, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               528, "NoteOff", "Note" -> 70, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               528, "NoteOn", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               576, "NoteOff", "Note" -> 71, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               624, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 48]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    SoundNote[0], 
    SoundNote[1], 
    SoundNote[2], 
    SoundNote[3], 
    SoundNote[4], 
    SoundNote[5], 
    SoundNote[6], 
    SoundNote[7], 
    SoundNote[8], 
    SoundNote[9], 
    SoundNote[10], 
    SoundNote[11], 
    SoundNote[12]}]]], "Output",
 CellChangeTimes->{3.7241476247997904`*^9, 
  3.724225398504352*^9},ExpressionUUID->"a92080c9-477e-4ae4-a0d7-\
b3af75cde49b"]
}, Open  ]],

Cell["\:6784\:5efa C \:5927\:8c03\:767d\:952e\:548c\:5f26\:8868\:ff0c\:6309\
\:ff5b\:6839\:97f3\:ff0c\:4e09\:97f3\:ff0c\:4e94\:97f3\:ff0c\:4e03\:97f3\:ff0c\
\:4e5d\:97f3\:ff5d\:6392\:5e8f", "Text",
 CellChangeTimes->{{3.724073387409861*^9, 3.724073441979816*^9}, {
   3.7240735379711266`*^9, 3.7240735713681183`*^9}, 3.7240737586634197`*^9, {
   3.724073933214167*^9, 3.7240739434678316`*^9}, {3.7240742285708656`*^9, 
   3.7240742386433964`*^9}, {3.7240744190375996`*^9, 
   3.7240744192058954`*^9}},ExpressionUUID->"c3a238a4-d98f-472c-8b2a-\
db7331415cfe"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Major", "=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "4", ",", "7", ",", "11", ",", "14"}], "}"}]}], ";"}], 
  " ", 
  RowBox[{
  "(*", " ", "\:5927\:4e5d\:548c\:5f26", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Minor", "=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "3", ",", "7", ",", "10", ",", "14"}], "}"}]}], ";"}], 
  " ", 
  RowBox[{"(*", " ", "\:5c0f\:4e5d\:548c\:5f26", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Clist", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "C", " ", "*)"}], " ", 
     RowBox[{"Major", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Dm", " ", "*)"}], " ", 
      RowBox[{"Minor", "+", "2"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Em", " ", "*)"}], " ", 
      RowBox[{"Minor", "+", "4"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "F", " ", "*)"}], " ", 
      RowBox[{"Major", "+", "5"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "G", " ", "*)"}], " ", 
      RowBox[{"Major", "+", "7"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Am", " ", "*)"}], " ", 
      RowBox[{"Minor", "+", "9"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Bdim", " ", "*)"}], " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "3", ",", "6", ",", "10", ",", "13"}], "}"}], "+", 
       "11"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
  "(*", " ", "\:6269\:5145\:4e00\:904d\:5347\:516b\:5ea6\:7684", " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Clist", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"Clist", ",", 
     RowBox[{"Clist", "+", "12"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.72407425539176*^9, 3.724074391722303*^9}, {
   3.724074428700827*^9, 3.7240745597195387`*^9}, 3.7240745985405016`*^9, {
   3.724075286633212*^9, 3.7240753747279606`*^9}, {3.7240754098776474`*^9, 
   3.724075425582509*^9}},ExpressionUUID->"f7f0d184-af23-49ec-ba1c-\
01b758131298"],

Cell["\:6309\:5206\:89e3\:548c\:5f26\:7684\:89c4\:5219\:91cd\:6392\:5404\:5217\
\:987a\:5e8f\:ff5b\:6839\:97f3\:ff0c\:4e94\:97f3\:ff0c\:4e03\:97f3\:ff0c^\
\:6839\:97f3\:ff0c\:4e5d\:97f3\:ff0c^\:4e09\:97f3\:ff0c^\:4e94\:97f3\:ff0c^\
\:4e03\:97f3\:ff0c^^\:6839\:97f3\[Ellipsis]\:ff5d", "Text",
 CellChangeTimes->{{3.724074615363594*^9, 3.7240746407723756`*^9}, {
  3.7240748261720314`*^9, 3.724074828932561*^9}, {3.7240749647720585`*^9, 
  3.7240749700382385`*^9}, {3.7240750181794157`*^9, 3.7240750655609465`*^9}, {
  3.724075578202712*^9, 3.7240756000036616`*^9}, {3.724076513671117*^9, 
  3.724076518388246*^9}, {3.7240765634132295`*^9, 
  3.7240765858580775`*^9}},ExpressionUUID->"d909806a-ce0a-4f4f-847d-\
8c84f7d1d3ca"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Colist", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Clist", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"Clist", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "3"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"Clist", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "4"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"Clist", "\[LeftDoubleBracket]", 
          RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "+", "12"}], 
        ",", 
        RowBox[{"Clist", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "5"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"Clist", "\[LeftDoubleBracket]", 
          RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], "+", "12"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"7", "*", "2"}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{
  "(*", " ", "\:6269\:5145\:4e24\:904d\:5347\:516b\:5ea6\:7684", " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Colist", "=", 
   RowBox[{"ArrayFlatten", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"Colist", ",", 
       RowBox[{
        RowBox[{"Colist", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", 
          RowBox[{"2", ";;", "6"}]}], "\[RightDoubleBracket]"}], "+", "12"}], 
       ",", 
       RowBox[{
        RowBox[{"Colist", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", 
          RowBox[{"2", ";;", "6"}]}], "\[RightDoubleBracket]"}], "+", 
        "24"}]}], "}"}], "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.724075606448967*^9, 3.7240756641616936`*^9}, {
  3.7240757317049603`*^9, 3.7240757949393797`*^9}, {3.7240766270201435`*^9, 
  3.724076631774185*^9}, {3.7240767027738485`*^9, 3.7240767545460815`*^9}, {
  3.7241525379021516`*^9, 
  3.7241525500091743`*^9}},ExpressionUUID->"b14557e3-9a2a-465e-81c5-\
967c0e373d28"],

Cell["\:9519\:8bef\:8303\:4f8b\:ff1a\:516d\:90e8\:540c\:5411\:7684\:5206\:89e3\
\:548c\:5f26", "Text",
 CellChangeTimes->{{3.724076107675956*^9, 3.724076117175799*^9}, {
  3.724076173832883*^9, 3.7240761768196077`*^9}, {3.724076308674941*^9, 
  3.7240763624323444`*^9}, {3.724151212162239*^9, 
  3.7241512161129932`*^9}},ExpressionUUID->"509a731b-513c-4792-bbc8-\
c544b524e8fe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sound", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"SoundNote", "[", 
     RowBox[{
      RowBox[{"Colist", "\[LeftDoubleBracket]", 
       RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], ",", ".2"}], "]"}],
     ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "5", ",", "3", ",", "6", ",", "2", ",", "5", ",", 
        RowBox[{"1", "+", "7"}], ",", 
        RowBox[{"1", "+", "7"}]}], "}"}]}], "}"}], ",", 
    RowBox[{
    "(*", " ", 
     "\:534e\:8bed\:7b2c\:4e8c\:7528\:70c2\:7684\:548c\:5f26\:8fdb\:884c", 
     " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "6"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.724074730769672*^9, 3.7240747418580117`*^9}, {
   3.724074795063534*^9, 3.7240748109706836`*^9}, {3.7240748495306807`*^9, 
   3.7240749333878775`*^9}, {3.724075115843115*^9, 3.724075171129408*^9}, {
   3.724075221283387*^9, 3.724075240661307*^9}, {3.7240752728511286`*^9, 
   3.7240752756197643`*^9}, 3.7240753600987043`*^9, {3.7240754449472265`*^9, 
   3.724075446569578*^9}, {3.7240754934024973`*^9, 3.7240754940998354`*^9}, {
   3.724075799031771*^9, 3.724075813981588*^9}, {3.7240758572417345`*^9, 
   3.724075867936281*^9}, {3.7240761898005476`*^9, 3.724076223069413*^9}, {
   3.724076315467594*^9, 3.724076322492773*^9}, {3.7240767590621624`*^9, 
   3.7240767785203834`*^9}},ExpressionUUID->"d081c1a8-7a53-4556-b994-\
16ed0246aed3"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4.8, 0.45579648983751037}, \
{4.99, 0.4677012517422721}], 
          RectangleBox[{2.4, 0.4796060136470343}, \
{2.59, 0.49151077555179606}], 
          RectangleBox[{0., 0.49151077555179606}, {0.19, 0.5034155374565581}],
           RectangleBox[{1.2, 0.5153202993613198}, \
{1.39, 0.5272250612660818}], 
          RectangleBox[{6., 0.5153202993613198}, {6.19, 0.5272250612660818}], 
          RectangleBox[{3.6, 0.5391298231708438}, {3.79, 0.5510345850756055}],
           RectangleBox[{5., 0.5391298231708438}, {5.19, 0.5510345850756055}],
           RectangleBox[{2.6, 0.5629393469803675}, \
{2.79, 0.5748441088851295}], 
          RectangleBox[{0.2, 0.5748441088851295}, {0.39, 0.5867488707898912}],
           RectangleBox[{5.2, 0.5748441088851295}, \
{5.390000000000001, 0.5867488707898912}], 
          RectangleBox[{7.2, 0.5748441088851295}, \
{7.390000000000001, 0.5867488707898912}], 
          RectangleBox[{8.4, 0.5748441088851295}, {8.59, 0.5867488707898912}],
           RectangleBox[{1.4, 0.5986536326946532}, {1.59, 0.610558394599415}],
           RectangleBox[{2.8, 0.5986536326946532}, {2.99, 0.610558394599415}],
           RectangleBox[{5.4, 0.5986536326946532}, {5.59, 0.610558394599415}],
           RectangleBox[{6.2, 0.5986536326946532}, \
{6.390000000000001, 0.610558394599415}], 
          RectangleBox[{0.4, 0.6224631565041769}, {0.59, 0.6343679184089389}],
           RectangleBox[{3., 0.6224631565041769}, \
{3.1900000000000004, 0.6343679184089389}], 
          RectangleBox[{3.8, 0.6224631565041769}, {3.99, 0.6343679184089389}],
           RectangleBox[{5.6, 0.6224631565041769}, \
{5.79, 0.6343679184089389}], 
          RectangleBox[{0.6, 0.6343679184089389}, {0.79, 0.646272680313701}], 
          RectangleBox[{5.8, 0.6343679184089389}, {5.99, 0.646272680313701}], 
          RectangleBox[{1.6, 0.646272680313701}, {1.79, 0.658177442218463}], 
          RectangleBox[{3.2, 0.646272680313701}, {3.39, 0.658177442218463}], 
          RectangleBox[{6.4, 0.646272680313701}, {6.59, 0.658177442218463}], 
          RectangleBox[{0.8, 0.658177442218463}, {0.99, 0.6700822041232247}], 
          RectangleBox[{1.8, 0.658177442218463}, {1.99, 0.6700822041232247}], 
          RectangleBox[{3.4, 0.658177442218463}, {3.59, 0.6700822041232247}], 
          RectangleBox[{4., 0.658177442218463}, {4.19, 0.6700822041232247}], 
          RectangleBox[{6.6, 0.658177442218463}, {6.79, 0.6700822041232247}], 
          RectangleBox[{7.4, 0.658177442218463}, {7.59, 0.6700822041232247}], 
          RectangleBox[{8.6, 0.658177442218463}, \
{8.790000000000001, 0.6700822041232247}], 
          RectangleBox[{1., 0.6819869660279864}, {1.19, 0.6938917279327484}], 
          RectangleBox[{2., 0.6819869660279864}, \
{2.1900000000000004, 0.6938917279327484}], 
          RectangleBox[{4.2, 0.6819869660279864}, \
{4.390000000000001, 0.6938917279327484}], 
          RectangleBox[{6.8, 0.6819869660279864}, {6.99, 0.6938917279327484}],
           RectangleBox[{2.2, 0.7057964898375104}, \
{2.39, 0.7177012517422724}], 
          RectangleBox[{4.4, 0.7057964898375104}, {4.59, 0.7177012517422724}],
           RectangleBox[{7., 0.7057964898375104}, {7.19, 0.7177012517422724}],
           RectangleBox[{7.6, 0.7057964898375104}, \
{7.79, 0.7177012517422724}], 
          RectangleBox[{8.8, 0.7057964898375104}, {8.99, 0.7177012517422724}],
           RectangleBox[{4.6, 0.7177012517422724}, \
{4.79, 0.7296060136470344}], 
          RectangleBox[{7.8, 0.7177012517422724}, {7.99, 0.7296060136470344}],
           RectangleBox[{9., 0.7177012517422724}, {9.19, 0.7296060136470344}],
           RectangleBox[{8., 0.7415107755517961}, {8.19, 0.7534155374565579}],
           RectangleBox[{9.2, 0.7415107755517961}, \
{9.39, 0.7534155374565579}], 
          RectangleBox[{8.2, 0.7653202993613198}, {8.39, 0.7772250612660818}],
           RectangleBox[{9.4, 0.7653202993613198}, \
{9.59, 0.7772250612660818}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"9.6\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 65, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 65, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 77, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 77, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOn", "Note" -> 78, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               432, "NoteOff", "Note" -> 78, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               432, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               480, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               480, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               528, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               528, "NoteOn", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               576, "NoteOff", "Note" -> 83, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               624, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               624, "NoteOn", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               672, "NoteOff", "Note" -> 71, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               672, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               720, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               720, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               768, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               768, "NoteOn", "Note" -> 78, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               816, "NoteOff", "Note" -> 78, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               816, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               864, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               864, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               912, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               912, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               960, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               960, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1008, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1008, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1056, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1056, "NoteOn", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1104, "NoteOff", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1104, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1152, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1152, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1200, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1200, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1248, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1248, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1296, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1296, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1344, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1344, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1392, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1392, "NoteOn", "Note" -> 77, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1440, "NoteOff", "Note" -> 77, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1440, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1488, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1488, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1536, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1536, "NoteOn", "Note" -> 78, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1584, "NoteOff", "Note" -> 78, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1584, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1632, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1632, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1680, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1680, "NoteOn", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1728, "NoteOff", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1728, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1776, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1776, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1824, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1824, "NoteOn", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1872, "NoteOff", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1872, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1920, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1920, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1968, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1968, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2016, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2016, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2064, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2064, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2112, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2112, "NoteOn", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2160, "NoteOff", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2160, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2208, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2208, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2256, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2256, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2304, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 240]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{{
     SoundNote[5, 0.2], 
     SoundNote[12, 0.2], 
     SoundNote[16, 0.2], 
     SoundNote[17, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[21, 0.2]}, {
     SoundNote[7, 0.2], 
     SoundNote[14, 0.2], 
     SoundNote[18, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[21, 0.2], 
     SoundNote[23, 0.2]}, {
     SoundNote[4, 0.2], 
     SoundNote[11, 0.2], 
     SoundNote[14, 0.2], 
     SoundNote[16, 0.2], 
     SoundNote[18, 0.2], 
     SoundNote[19, 0.2]}, {
     SoundNote[9, 0.2], 
     SoundNote[16, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[21, 0.2], 
     SoundNote[23, 0.2], 
     SoundNote[24, 0.2]}, {
     SoundNote[2, 0.2], 
     SoundNote[9, 0.2], 
     SoundNote[12, 0.2], 
     SoundNote[14, 0.2], 
     SoundNote[16, 0.2], 
     SoundNote[17, 0.2]}, {
     SoundNote[7, 0.2], 
     SoundNote[14, 0.2], 
     SoundNote[18, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[21, 0.2], 
     SoundNote[23, 0.2]}, {
     SoundNote[12, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[23, 0.2], 
     SoundNote[24, 0.2], 
     SoundNote[26, 0.2], 
     SoundNote[28, 0.2]}, {
     SoundNote[12, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[23, 0.2], 
     SoundNote[24, 0.2], 
     SoundNote[26, 0.2], 
     SoundNote[28, 0.2]}}]]], "Output",
 CellChangeTimes->{{3.7240747879379787`*^9, 3.724074811411126*^9}, 
   3.724074934021596*^9, 3.7240758154834924`*^9, {3.7240758581989603`*^9, 
   3.7240758684470367`*^9}, 3.724076223526455*^9, {3.724076322845913*^9, 
   3.7240763319808226`*^9}, {3.72407675962513*^9, 3.7240767793050365`*^9}, 
   3.724147625133443*^9, 3.7241526559385705`*^9, 
   3.724225398714353*^9},ExpressionUUID->"2c5da407-952a-431c-ac59-\
c4ec8ea39998"]
}, Open  ]],

Cell["\<\
\:641c\:7d22\:56db\:58f0\:90e8\:89e3\:51b3\:65b9\:5411\:4e0d\:5168\:540c\:3001\
\:6700\:5e73\:7a33\:8fdb\:884c\:7684\:65b9\:6848
\:6682\:65f6\:4e0d\:8003\:8651\:53d8\:5e95\:97f3\:7684\:60c5\:51b5\:ff08\:6700\
\:4e0b\:5c42\:603b\:662f\:6839\:97f3\:548c\:4e94\:97f3\:ff09
\:4e3a\:4e86\:5141\:8bb8\:4e32\:58f0\:90e8\:ff0c\:8bbe p\:3001f \:8bb0\:5f55\
\:4e86\:524d\:540e\:58f0\:90e8\:97f3\:7b26\:7ec4\:5408\:ff08\:5143\:7d20\:4e2a\
\:6570\:76f8\:7b49\:ff09\:ff0cscor \:9996\:5148\:627e\:5b8c\:5168\:76f8\:540c\
\:7684\:97f3\:ff0c\:6bcf\:4e2a +10 \:5206\:ff0c\:5269\:4e0b\:7684\:540e\:97f3\
\:627e\:8ddd\:79bb\:6700\:8fd1\:7684\:524d\:97f3\:ff0c\:8ddd\:79bb\:5947\:6570\
\:4e2a\:534a\:97f3 -10 \:5206\:ff0c\:5076\:6570\:4e2a -1 \:5206\
\>", "Text",
 CellChangeTimes->{{3.7241493770482244`*^9, 3.724149480618673*^9}, {
   3.7241495394186835`*^9, 3.7241495974590387`*^9}, {3.7241496325267954`*^9, 
   3.7241496699251733`*^9}, {3.7241497150439053`*^9, 3.724149738877942*^9}, {
   3.724149776675218*^9, 3.7241498835453496`*^9}, 3.724150268381228*^9, 
   3.724150325437484*^9, {3.7242243096291313`*^9, 3.724224418947982*^9}, {
   3.724224456912361*^9, 3.7242244601118193`*^9}, {3.7242246591272507`*^9, 
   3.7242247707187586`*^9}, {3.7242248346504526`*^9, 
   3.7242248539558835`*^9}, {3.724225193001465*^9, 3.724225199765278*^9}, {
   3.724228917950322*^9, 
   3.724228937581505*^9}},ExpressionUUID->"af070f6f-d1c0-40e8-88a8-\
c0d8cb58a28f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ifoddx10", "[", "n_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"OddQ", "[", "n", "]"}], ",", 
    RowBox[{"10", "n"}], ",", "n"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"scor", "[", 
   RowBox[{"p_", ",", "f_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"l", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"f", ",", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"MemberQ", "[", 
           RowBox[{"p", ",", "#"}], "]"}]}], "&"}]}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"10", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Length", "[", "f", "]"}], "-", 
        RowBox[{"Length", "[", "l", "]"}]}], ")"}]}], "-", 
     RowBox[{"Total", "[", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ifoddx10", "[", 
          RowBox[{
           RowBox[{
           "l", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "-", 
           RowBox[{
            RowBox[{"Nearest", "[", 
             RowBox[{"p", ",", 
              RowBox[{
              "l", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
             "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "l", "]"}]}], "}"}]}], "]"}], "]"}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.724149385413016*^9, 3.724149394172388*^9}, {
   3.724149923925452*^9, 3.7241499827856083`*^9}, {3.724150030863339*^9, 
   3.7241500319474325`*^9}, {3.7241500767443824`*^9, 
   3.7241500866385794`*^9}, {3.7241501698540506`*^9, 3.724150265023402*^9}, 
   3.7241509889422207`*^9, {3.724224779102832*^9, 3.7242248012866383`*^9}, {
   3.724224892662795*^9, 3.724224905810289*^9}, {3.724224968588538*^9, 
   3.7242249778525143`*^9}, {3.724225071618182*^9, 3.7242251720674295`*^9}, {
   3.7242252759519196`*^9, 3.7242253245865936`*^9}, {3.724225506459106*^9, 
   3.724225508245307*^9}, {3.724228989796144*^9, 
   3.7242290595453367`*^9}},ExpressionUUID->"96ce2e5c-c8b3-47e5-8125-\
e5c9c07e2be3"],

Cell["\:4f8b", "Text",
 CellChangeTimes->{{3.7242253622265015`*^9, 
  3.724225366822856*^9}},ExpressionUUID->"266cf6ea-be15-4b60-8ec5-\
b346e8e59acb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"scor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7242253353737364`*^9, 
  3.7242253492245197`*^9}},ExpressionUUID->"754645a5-9d0a-4ed8-9aa5-\
a93070851f00"],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.72422534984416*^9, 3.724225398784872*^9, 
  3.7242255645157957`*^9, 
  3.724229063464596*^9},ExpressionUUID->"b3b9ce23-4056-4946-bb5a-\
c3a42f64b3af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"scor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.724229071223296*^9},ExpressionUUID->"71c93e8d-9c56-4cb1-92ad-\
662d1ef2619e"],

Cell[BoxData["18"], "Output",
 CellChangeTimes->{
  3.724229077611469*^9},ExpressionUUID->"7a9f3197-ac02-461b-876b-\
a98ec9260b8f"]
}, Open  ]],

Cell[TextData[{
 "\:8f93\:5165\:ff1apre\:ff1a\:524d\:4e00\:4e2a\:548c\:5f26\:5df2\:9009\:597d\
\:7684\:53f3\:624b list\:ff08\:81ea\:52a8\:8bc6\:522b\:58f0\:90e8\:4e2a\:6570 \
n\[GreaterEqual]1\:ff09\nfol\:ff1a\:540e\:4e00\:4e2a\:548c\:5f26\:7684\:53f3\
\:624b\:7684\:5907\:9009 list\:ff08m>n\:ff09\n\:ff08\:4e24\:4e2a list \:6309\
\:4ece\:4f4e\:5230\:9ad8\:6392\:597d\:5e8f\:ff09\n\:ff08\:7b97\:6cd5\:6682\
\:65f6\:5c31 ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["C", "m", "n"], TraditionalForm]],ExpressionUUID->
  "012ad502-2ee9-47ec-b806-69ea84da404b"],
 " \:5168\:8bd5\:4e00\:904d\:597d\:4e86\:53cd\:6b63\:5143\:7d20\:4e2a\:6570\
\:53c8\:4e0d\:591a\[Ellipsis]\:ff09"
}], "Text",
 CellChangeTimes->{{3.7240758994351315`*^9, 3.724075990004837*^9}, {
   3.7240762769154477`*^9, 3.7240762801814775`*^9}, 3.724076369960657*^9, {
   3.7240764351290245`*^9, 3.724076456713058*^9}, {3.7240769151543446`*^9, 
   3.724076917348795*^9}, {3.7241479675197525`*^9, 3.724147987945966*^9}, {
   3.724148105513736*^9, 3.7241481500488544`*^9}, {3.7241482290526295`*^9, 
   3.7241483531303115`*^9}, {3.7241484097487144`*^9, 3.724148436539178*^9}, {
   3.72414852552079*^9, 3.7241485827496862`*^9}, {3.7241487276692*^9, 
   3.7241488331339645`*^9}, {3.7241492932725935`*^9, 3.724149304312276*^9}, {
   3.724149373471059*^9, 
   3.724149380015355*^9}},ExpressionUUID->"fd226dc3-f2ef-49d8-8837-\
7035ba63dfe1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solv", "[", 
   RowBox[{"pre_", ",", "fol_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "\:5217\:51fa\:6240\:6709\:5b50\:96c6", " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"s", "=", 
      RowBox[{"Subsets", "[", 
       RowBox[{"fol", ",", 
        RowBox[{"{", 
         RowBox[{"Length", "[", "pre", "]"}], "}"}]}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
    "(*", " ", 
     "\:8ba1\:7b97\:5404\:58f0\:90e8\:5e73\:7a33\:5ea6\:5e76\:53d6\:5206\:6570\
\:6700\:9ad8\:8005", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Return", "[", 
      RowBox[{"s", "\[LeftDoubleBracket]", 
       RowBox[{"Ordering", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"scor", "[", 
            RowBox[{"pre", ",", 
             RowBox[{
             "s", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
            "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"Length", "[", "s", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"-", "1"}]}], "]"}], "\[RightDoubleBracket]"}], "]"}], 
     ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.7241480139354677`*^9, 3.7241480398158493`*^9}, {
   3.7241483888027306`*^9, 3.7241484054815893`*^9}, {3.724148441447995*^9, 
   3.7241484547163115`*^9}, {3.7241488761952257`*^9, 3.724148929713852*^9}, {
   3.7241489599831867`*^9, 3.7241489712051754`*^9}, {3.7241490284229727`*^9, 
   3.7241490611585655`*^9}, {3.724149105246319*^9, 3.724149105470259*^9}, {
   3.724149160460869*^9, 3.7241491891762304`*^9}, {3.7241503222455235`*^9, 
   3.724150357097371*^9}, {3.724150579595174*^9, 3.7241505843283005`*^9}, 
   3.72415062815827*^9, {3.7241506698540554`*^9, 3.724150721467826*^9}, {
   3.7241507545505466`*^9, 3.72415075559324*^9}, {3.724150936765407*^9, 
   3.724150942015766*^9}, {3.7241510092135954`*^9, 3.7241510494438*^9}, {
   3.7241519344981833`*^9, 3.7241519357889476`*^9}, 3.724224226220458*^9, {
   3.724225392050539*^9, 3.724225421044635*^9}, 
   3.724225570579344*^9},ExpressionUUID->"199ecab7-9301-475a-b477-\
a0d33e7b6ff7"],

Cell["\:7528\:6cd5\:4e3e\:4f8b\:ff1a\:4ece F \:5230 G \:548c\:5f26\:ff0cF \
\:7684\:53f3\:624b\:53d6 3~5 \:5217\:ff0c\:6c42 G \:548c\:5f26\:7684\:5e73\
\:7a33\:8fdb\:884c\:97f3", "Text",
 CellChangeTimes->{{3.7241507893343334`*^9, 3.724150851621977*^9}, {
  3.7241511887789783`*^9, 
  3.724151197422621*^9}},ExpressionUUID->"65148ce2-04bc-4710-a048-\
9da30e2595e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Colist", "\[LeftDoubleBracket]", 
  RowBox[{"4", ",", 
   RowBox[{"3", ";;", "5"}]}], "\[RightDoubleBracket]"}]], "Input",ExpressionU\
UID->"e88ae1b6-aa36-4a3c-aad3-da5340877be8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"16", ",", "17", ",", "19"}], "}"}]], "Output",
 CellChangeTimes->{
  3.724150907812436*^9, {3.724225398853053*^9, 3.72422542517352*^9}, 
   3.7242255727402534`*^9},ExpressionUUID->"48e72434-9437-453c-ab35-\
d7270648a093"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solv", "[", 
   RowBox[{
    RowBox[{"Colist", "\[LeftDoubleBracket]", 
     RowBox[{"4", ",", 
      RowBox[{"3", ";;", "5"}]}], "\[RightDoubleBracket]"}], ",", 
    RowBox[{
    "Colist", "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}]}], "]"}],
   "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]], "Input",
 CellChangeTimes->{{3.724150561578657*^9, 3.724150577492863*^9}, {
   3.7241508614940767`*^9, 3.7241508975318594`*^9}, {3.724151087153015*^9, 
   3.7241510889868526`*^9}, 
   3.724151939820217*^9},ExpressionUUID->"ea125e06-3650-474f-a328-\
a0b0b2ef25b6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"18", ",", "19", ",", "21"}], "}"}]], "Output",
 CellChangeTimes->{{3.7241508921581883`*^9, 3.724150898122321*^9}, 
   3.7241509464068775`*^9, {3.7241509933661156`*^9, 3.7241510518907146`*^9}, 
   3.724151089720269*^9, 3.7241519545345783`*^9, {3.724225399066633*^9, 
   3.724225427798334*^9}, 3.7242255132339816`*^9, 
   3.7242255739765606`*^9},ExpressionUUID->"bcadd8d4-6a73-463e-b572-\
3883debd5be1"]
}, Open  ]],

Cell["\<\
\:7528\:51fd\:6570\:8fed\:4ee3\:51b3\:7b56\:51fa\:6574\:4e2a\:548c\:5f26\:8fdb\
\:884c\:7684\:53f3\:624b\:97f3
cp\:ff1a\:8f93\:5165\:7b80\:8c31\:7684\:548c\:5f26\:8fdb\:884c\:ff08\:5176\
\:5b9e\:662f\:548c\:5f26\:8868\:7684\:884c\:53f7\:ff09
first\:ff1a\:8f93\:5165\:7b2c\:4e00\:4e2a\:548c\:5f26\:7684\:53f3\:624b\:9009\
\:62e9\:54ea\:51e0\:5217\:ff08\[GreaterEqual]3\:ff0c\:56e0\:4e3a\:6700\:4e0b\
\:9762\:4fe9\:603b\:662f\:6839\:97f3\:548c\:4e94\:97f3\:ff09\
\>", "Text",
 CellChangeTimes->{{3.7241511448896866`*^9, 3.7241511668732743`*^9}, {
  3.7241513494702306`*^9, 3.7241513794088025`*^9}, {3.7241514327913165`*^9, 
  3.7241515124889317`*^9}},ExpressionUUID->"5f5c71dc-0c8f-4762-8f89-\
d438dc604dd2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ChordPro", "[", 
   RowBox[{"cp_", ",", "first_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ini", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Colist", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", 
          RowBox[{"3", ";;", "16"}]}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "cp"}], "}"}]}], "]"}]}], "}"}], ",", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "\:6b64\:5904", " ", "j", " ", "\:4ece", " ", "3", " ", 
      "\:5f00\:59cb\:6392\:9664\:4e86\:6700\:4e0b\:9762\:4fe9\:97f3", 
      RowBox[{"\:ff08", "\:5de6\:624b\:5f39\:7684", "\:ff09"}]}], " ", "*)"}],
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"ini", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
      "=", 
      RowBox[{"ini", "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "first"}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ini", "\[LeftDoubleBracket]", 
         RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{
         RowBox[{"Solv", "[", 
          RowBox[{
           RowBox[{
           "ini", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], ",", 
           RowBox[{"ini", "\[LeftDoubleBracket]", 
            RowBox[{"n", "+", "1"}], "\[RightDoubleBracket]"}]}], "]"}], 
         "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", 
         RowBox[{
          RowBox[{"Length", "[", "cp", "]"}], "-", "1"}]}], "}"}]}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"ArrayFlatten", "[", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Colist", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", 
              RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "cp"}], "}"}]}], "]"}], ",", "ini"}], "}"}], 
        "}"}], "]"}], " ", "]"}]}]}], " ", 
   RowBox[{"(*", 
    RowBox[{" ", "\:6b64\:5904\:8865\:56de\:5de6\:624b\:97f3", "\:ff09"}], 
    " ", "*)"}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.7241512982969675`*^9, 3.724151324797109*^9}, {
   3.724151399456093*^9, 3.7241514464709716`*^9}, {3.724151518138165*^9, 
   3.724151602753471*^9}, {3.7241516909143143`*^9, 3.724151794056063*^9}, {
   3.724151851539321*^9, 3.7241519142963963`*^9}, {3.7241519630885353`*^9, 
   3.7241521143249207`*^9}, 
   3.7241525759975977`*^9},ExpressionUUID->"4ff88328-5956-47b4-9bdb-\
0751a7a84400"],

Cell["\:4f7f\:7528\:8303\:4f8b", "Text",
 CellChangeTimes->{{3.7241522153948517`*^9, 
  3.7241522204906645`*^9}},ExpressionUUID->"b05e041c-0662-4893-8c9b-\
a819c5cf3661"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"cl", "=", 
    RowBox[{"ChordPro", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"4", ",", "5", ",", "3", ",", "6", ",", "2", ",", "5", ",", 
        RowBox[{"1", "+", "7"}], ",", 
        RowBox[{"1", "+", "7"}]}], "}"}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], ";"}], 
  " "}], "\n", 
 RowBox[{"Sound", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"SoundNote", "[", 
     RowBox[{
      RowBox[{"cl", "\[LeftDoubleBracket]", 
       RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], ",", ".2"}], "]"}],
     ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "8"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "5"}], "}"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7241521455270324`*^9, 3.724152256751333*^9}, {
  3.7241526033061275`*^9, 3.72415261211842*^9}, {3.7241526784263554`*^9, 
  3.72415269292519*^9}, {3.724225656968833*^9, 3.724225710181164*^9}, {
  3.72422909795973*^9, 
  3.724229112531128*^9}},ExpressionUUID->"482b7e76-4d83-4768-868a-\
b14df6b39d8a"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4., 0.45579648983751037}, {4.19, 0.4677012517422721}],
           RectangleBox[{2., 0.4796060136470343}, \
{2.1900000000000004, 0.49151077555179606}], 
          RectangleBox[{0., 0.49151077555179606}, {0.19, 0.5034155374565581}],
           RectangleBox[{1., 0.5153202993613198}, {1.19, 0.5272250612660818}],
           RectangleBox[{5., 0.5153202993613198}, {5.19, 0.5272250612660818}],
           RectangleBox[{3., 0.5391298231708438}, \
{3.1900000000000004, 0.5510345850756055}], 
          RectangleBox[{4.2, 0.5391298231708438}, \
{4.390000000000001, 0.5510345850756055}], 
          RectangleBox[{2.2, 0.5629393469803675}, {2.39, 0.5748441088851295}],
           RectangleBox[{0.2, 0.5748441088851295}, \
{0.39, 0.5867488707898912}], 
          RectangleBox[{6., 0.5748441088851295}, {6.19, 0.5867488707898912}], 
          RectangleBox[{7., 0.5748441088851295}, {7.19, 0.5867488707898912}], 
          RectangleBox[{1.2, 0.5986536326946532}, {1.39, 0.610558394599415}], 
          RectangleBox[{5.2, 0.5986536326946532}, \
{5.390000000000001, 0.610558394599415}], 
          RectangleBox[{3.2, 0.6224631565041769}, {3.39, 0.6343679184089389}],
           RectangleBox[{0.4, 0.658177442218463}, {0.59, 0.6700822041232247}],
           RectangleBox[{1.4, 0.658177442218463}, {1.59, 0.6700822041232247}],
           RectangleBox[{2.4, 0.658177442218463}, {2.59, 0.6700822041232247}],
           RectangleBox[{3.4, 0.658177442218463}, {3.59, 0.6700822041232247}],
           RectangleBox[{6.2, 0.658177442218463}, \
{6.390000000000001, 0.6700822041232247}], 
          RectangleBox[{7.2, 0.658177442218463}, \
{7.390000000000001, 0.6700822041232247}], 
          RectangleBox[{1.6, 0.6819869660279864}, {1.79, 0.6938917279327484}],
           RectangleBox[{4.4, 0.6819869660279864}, \
{4.59, 0.6938917279327484}], 
          RectangleBox[{5.4, 0.6819869660279864}, {5.59, 0.6938917279327484}],
           
          RectangleBox[{0.6, 0.7177012517422724}, {0.79, 0.7296060136470344}],
           RectangleBox[{1.8, 0.7415107755517961}, \
{1.99, 0.7534155374565579}], 
          RectangleBox[{2.6, 0.7415107755517961}, {2.79, 0.7534155374565579}],
           RectangleBox[{4.6, 0.7415107755517961}, \
{4.79, 0.7534155374565579}], 
          RectangleBox[{5.6, 0.7415107755517961}, {5.79, 0.7534155374565579}],
           RectangleBox[{6.4, 0.7415107755517961}, \
{6.59, 0.7534155374565579}], 
          RectangleBox[{7.4, 0.7415107755517961}, {7.59, 0.7534155374565579}],
           RectangleBox[{0.8, 0.7653202993613198}, \
{0.99, 0.7772250612660818}], 
          RectangleBox[{2.8, 0.7653202993613198}, {2.99, 0.7772250612660818}],
           RectangleBox[{3.6, 0.7653202993613198}, \
{3.79, 0.7772250612660818}], 
          RectangleBox[{4.8, 0.7653202993613198}, {4.99, 0.7772250612660818}],
           RectangleBox[{6.6, 0.7653202993613198}, \
{6.79, 0.7772250612660818}], 
          RectangleBox[{7.6, 0.7653202993613198}, {7.79, 0.7772250612660818}],
           RectangleBox[{3.8, 0.8010345850756058}, \
{3.99, 0.8129393469803675}], 
          RectangleBox[{6.8, 0.8010345850756058}, {6.99, 0.8129393469803675}],
           RectangleBox[{7.8, 0.8010345850756058}, \
{7.99, 0.8129393469803675}], 
          RectangleBox[{5.8, 0.8248441088851293}, {5.99, 0.8367488707898912}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"8\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 65, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 65, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               432, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               432, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               480, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               480, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               528, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               528, "NoteOn", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               576, "NoteOff", "Note" -> 71, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               624, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               624, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               672, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               672, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               720, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               720, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               768, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               768, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               816, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               816, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               864, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               864, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               912, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               912, "NoteOn", "Note" -> 91, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               960, "NoteOff", "Note" -> 91, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               960, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1008, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1008, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1056, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1056, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1104, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1104, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1152, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1152, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1200, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1200, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1248, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1248, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1296, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1296, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1344, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1344, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1392, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1392, "NoteOn", "Note" -> 93, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1440, "NoteOff", "Note" -> 93, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1440, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1488, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1488, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1536, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1536, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1584, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1584, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1632, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1632, "NoteOn", "Note" -> 91, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1680, "NoteOff", "Note" -> 91, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1680, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1728, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1728, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1776, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1776, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1824, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1824, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1872, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1872, "NoteOn", "Note" -> 91, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1920, "NoteOff", "Note" -> 91, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 240]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{{
     SoundNote[5, 0.2], 
     SoundNote[12, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[24, 0.2], 
     SoundNote[28, 0.2]}, {
     SoundNote[7, 0.2], 
     SoundNote[14, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[21, 0.2], 
     SoundNote[26, 0.2]}, {
     SoundNote[4, 0.2], 
     SoundNote[11, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[26, 0.2], 
     SoundNote[28, 0.2]}, {
     SoundNote[9, 0.2], 
     SoundNote[16, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[28, 0.2], 
     SoundNote[31, 0.2]}, {
     SoundNote[2, 0.2], 
     SoundNote[9, 0.2], 
     SoundNote[21, 0.2], 
     SoundNote[26, 0.2], 
     SoundNote[28, 0.2]}, {
     SoundNote[7, 0.2], 
     SoundNote[14, 0.2], 
     SoundNote[21, 0.2], 
     SoundNote[26, 0.2], 
     SoundNote[33, 0.2]}, {
     SoundNote[12, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[26, 0.2], 
     SoundNote[28, 0.2], 
     SoundNote[31, 0.2]}, {
     SoundNote[12, 0.2], 
     SoundNote[19, 0.2], 
     SoundNote[26, 0.2], 
     SoundNote[28, 0.2], 
     SoundNote[31, 0.2]}}]]], "Output",
 CellChangeTimes->{3.72415225774518*^9, 3.724152613130504*^9, 
  3.724152704069005*^9, 3.72422540000628*^9, 3.724225586137863*^9, 
  3.7242257131104336`*^9, 3.7242290839771643`*^9, 3.724229114093924*^9, 
  3.7242304757132015`*^9},ExpressionUUID->"d5afaeae-7cbb-45de-934d-\
97d6ea1a0269"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8282\:594f\:578b\:5e93", "Subsection",
 CellChangeTimes->{{3.724152731613202*^9, 
  3.724152738156171*^9}},ExpressionUUID->"612b4709-5e8e-4309-afad-\
b95517707bbc"],

Cell["\:6b64\:6a21\:5757\:5c06\:6570\:7ec4\:7ffb\:8bd1\:6210 SMSP \
\:8bed\:8a00\:7684\:7ec7\:4f53\:8c31\:5b50\:ff0c\:9700\:8981\:7528\:5230 \
yxlllc \:6240\:5f00\:53d1\:7684\:7f16\:8bd1\:5668", "Text",
 CellChangeTimes->{{3.7242281850851293`*^9, 3.7242282330763407`*^9}, {
  3.7242293856377783`*^9, 
  3.7242294014159317`*^9}},ExpressionUUID->"057a9ca6-c37d-4665-9c49-\
8f04a9ad707a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Music", "[", "s_", "]"}], ":=", 
  RowBox[{"MusicCreate", "@", 
   RowBox[{"SMSPCompile", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"\"\<m[4,120,0]\n<chords.txt\\n z[1,3>\\n\>\"", ",", "s"}], 
      "]"}], ",", 
     RowBox[{"\"\<CChordExtend\>\"", "\[Rule]", "True"}], ",", 
     RowBox[{"\"\<Directory\>\"", "\[Rule]", "\"\<E:/\>\""}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.72422941624262*^9, 3.7242294735546255`*^9}, {
   3.7242295843351617`*^9, 3.7242296036111298`*^9}, 3.7242299256998606`*^9, {
   3.7242300046272187`*^9, 3.724230058097309*^9}, {3.7242303047204943`*^9, 
   3.7242303052123327`*^9}, 
   3.7242326587935524`*^9},ExpressionUUID->"53c4a9e7-0fe5-49f6-a379-\
f44d7f695a02"],

Cell["\:6700\:5e38\:7528\:7684\:ff1a\:5de6\:624b\:67f1\:5f0f\:ff0c\:53f3\:624b\
\:56db\:5206\:97f3\:7b26\:67f1\:5f0f\:ff0c\:672b\:5c3e\:52a0\:82b1", "Text",
 CellChangeTimes->{{3.724225946385912*^9, 
  3.7242259745389752`*^9}},ExpressionUUID->"1a210ddc-0521-4020-9652-\
834ad8fa1790"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PianoL", "[", "cp_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"l", "=", 
      RowBox[{"ChordPro", "[", 
       RowBox[{"cp", ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"StringJoin", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"StringReplace", "[", 
          RowBox[{
           RowBox[{"ToString", "[", 
            RowBox[{"l", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", 
              RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}], "]"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", 
             RowBox[{"\"\<{\>\"", "\[Rule]", "\"\<[\>\""}], ",", 
             RowBox[{"\"\<}\>\"", "\[Rule]", "\"\<> \>\""}]}], "}"}]}], "]"}],
          ",", "\[IndentingNewLine]", "\"\<s-_ 0= b= 0= b= | \>\""}], 
        "\[IndentingNewLine]", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "cp", "]"}]}], "}"}]}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.724226109929907*^9, 3.7242261936656475`*^9}, {
   3.724226270570403*^9, 3.7242262709422836`*^9}, {3.7242267244370213`*^9, 
   3.724226763684654*^9}, {3.7242268889175005`*^9, 3.7242268958687153`*^9}, 
   3.7242269402723017`*^9, {3.724227411587632*^9, 3.724227552598548*^9}, {
   3.72422764420345*^9, 3.7242276476141148`*^9}, {3.724227731430237*^9, 
   3.724227741134508*^9}, {3.7242278210878887`*^9, 3.7242278269916906`*^9}, 
   3.724228147422735*^9, {3.7242283356972513`*^9, 3.7242283427959895`*^9}, {
   3.724229286669855*^9, 3.724229325270895*^9}, {3.72422964637496*^9, 
   3.724229651386836*^9}},ExpressionUUID->"d0d79f2c-000e-4310-a623-\
3a51c12ea921"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Music", "[", 
  RowBox[{"\"\<[t1] i[Midi[Piano]] v[1]\n[t1] |0] \>\"", "<>", 
   RowBox[{"PianoL", "[", 
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "3", ",", "6"}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7242275739314394`*^9, 3.7242276247232246`*^9}, {
   3.724227748901147*^9, 3.7242277906103106`*^9}, 3.724228353545685*^9, {
   3.72422948258746*^9, 
   3.72422948866809*^9}},ExpressionUUID->"88b355fe-094d-448b-9d0f-\
ea555a04c4a1"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4.8, 0.4796060136470343}, \
{6.25, 0.49151077555179606}], 
          RectangleBox[{0., 0.49151077555179606}, {1.45, 0.5034155374565581}],
           RectangleBox[{2.4, 0.5153202993613198}, \
{3.85, 0.5272250612660818}], 
          RectangleBox[{7.2, 0.5391298231708438}, \
{8.649999999999999, 0.5510345850756055}], 
          RectangleBox[{4.8, 0.5629393469803675}, {6.25, 0.5748441088851295}],
           RectangleBox[{6.45, 0.5629393469803675}, \
{6.592499999999999, 0.5748441088851295}], 
          RectangleBox[{6.75, 0.5629393469803675}, \
{6.8925, 0.5748441088851295}], 
          RectangleBox[{0., 0.5748441088851295}, {1.45, 0.5867488707898912}], 
          RectangleBox[{1.65, 0.5748441088851295}, \
{1.7925, 0.5867488707898912}], 
          RectangleBox[{1.95, 0.5748441088851295}, \
{2.0925000000000002, 0.5867488707898912}], 
          RectangleBox[{2.4, 0.5986536326946532}, {3.85, 0.610558394599415}], 
          RectangleBox[{4.05, 0.5986536326946532}, \
{4.1925, 0.610558394599415}], 
          RectangleBox[{4.35, 0.5986536326946532}, \
{4.4925, 0.610558394599415}], 
          RectangleBox[{7.2, 0.6224631565041769}, \
{8.649999999999999, 0.6343679184089389}], 
          RectangleBox[{8.85, 0.6224631565041769}, \
{8.9925, 0.6343679184089389}], 
          RectangleBox[{9.15, 0.6224631565041769}, \
{9.2925, 0.6343679184089389}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"9.3\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 65, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 65, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               396, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               432, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               468, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               504, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               936, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               936, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               972, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1008, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1044, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1080, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1152, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1152, "NoteOn", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1512, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1512, "NoteOff", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1548, "NoteOn", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1584, "NoteOff", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1620, "NoteOn", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1656, "NoteOff", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1728, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1728, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2088, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2088, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2124, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2160, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2196, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2232, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 240]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    Sound[
     SoundNote[{5, 12}, 
      Rational[3, 2], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 1], 
    Sound[
     SoundNote[{12}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[33, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{12}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[39, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{7, 14}, 
      Rational[3, 2], "Piano", SoundVolume -> 1], {
      Rational[12, 5]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{14}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[81, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{14}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[87, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{4, 11}, 
      Rational[3, 2], "Piano", SoundVolume -> 1], {
      Rational[24, 5]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{11}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[129, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{11}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[27, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{9, 16}, 
      Rational[3, 2], "Piano", SoundVolume -> 1], {
      Rational[36, 5]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{16}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[177, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{16}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[183, 20]}, SoundVolume -> 1]}]]], "Output",
 CellChangeTimes->{{3.7242276056195436`*^9, 3.7242276260536194`*^9}, {
   3.724227772850124*^9, 3.7242277930164003`*^9}, 3.7242278331209035`*^9, {
   3.7242283490170145`*^9, 3.7242283542219887`*^9}, {3.7242293078383007`*^9, 
   3.7242293272301426`*^9}, 3.724229492732911*^9, 3.724229524731851*^9, 
   3.7242296089184265`*^9, 3.7242296565980062`*^9, {3.724230295083493*^9, 
   3.724230308582862*^9}},ExpressionUUID->"4d34c0ed-9d2d-40da-88de-\
f6eb076a03e7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PianoR", "[", "cp_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"l", "=", 
      RowBox[{"ChordPro", "[", 
       RowBox[{"cp", ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"StringJoin", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"StringReplace", "[", 
          RowBox[{
           RowBox[{"ToString", "[", 
            RowBox[{"l", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", 
              RowBox[{"3", ";;", "5"}]}], "\[RightDoubleBracket]"}], "]"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", 
             RowBox[{"\"\<{\>\"", "\[Rule]", "\"\<[\>\""}], ",", 
             RowBox[{"\"\<}\>\"", "\[Rule]", "\"\<> \>\""}]}], "}"}]}], "]"}],
          ",", "\[IndentingNewLine]", "\"\<s s s z=+ 0= a_ | \>\""}], 
        "\[IndentingNewLine]", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "cp", "]"}]}], "}"}]}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.724226109929907*^9, 3.7242261936656475`*^9}, {
   3.724226270570403*^9, 3.7242262709422836`*^9}, {3.7242267244370213`*^9, 
   3.724226763684654*^9}, {3.7242268889175005`*^9, 3.7242268958687153`*^9}, 
   3.7242269402723017`*^9, {3.724227411587632*^9, 3.724227552598548*^9}, {
   3.72422764420345*^9, 3.7242276476141148`*^9}, {3.724227731430237*^9, 
   3.724227741134508*^9}, {3.7242278210878887`*^9, 3.7242278269916906`*^9}, {
   3.724227896350645*^9, 3.724227928407686*^9}, {3.7242280449049244`*^9, 
   3.7242280818308573`*^9}, 3.724228141933923*^9, {3.724228387870264*^9, 
   3.7242283882848806`*^9}, {3.724229731924868*^9, 3.7242297517071295`*^9}, 
   3.724229796957108*^9, 3.724229891497301*^9, 3.724229938739191*^9, 
   3.724230065153863*^9},ExpressionUUID->"14890f55-20ad-47c7-a551-\
2519ee74f63f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Music", "[", 
  RowBox[{
  "\"\<[left] i[Midi[Piano,-24]] v[1]\n[righ] i[Midi[Piano,-24]] v[.8]\n\
[left] |0] \>\"", "<>", 
   RowBox[{"PianoL", "[", 
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "3", ",", "6"}], "}"}], "]"}], "<>", 
   "\"\<\\n\>\"", "<>", "\[IndentingNewLine]", "\"\<[righ] |0] \>\"", "<>", 
   RowBox[{"PianoR", "[", 
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "3", ",", "6"}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7242275739314394`*^9, 3.7242276247232246`*^9}, {
   3.724227748901147*^9, 3.7242277906103106`*^9}, {3.724228123190134*^9, 
   3.7242281358364525`*^9}, {3.724228278234726*^9, 3.7242283198571453`*^9}, {
   3.724228408384725*^9, 3.7242284346244783`*^9}, {3.7242284664956293`*^9, 
   3.7242284865100007`*^9}, 3.7242285427288165`*^9, {3.7242286864981003`*^9, 
   3.7242286934827805`*^9}, {3.7242288176181154`*^9, 3.724228846676339*^9}, {
   3.7242296638947563`*^9, 3.724229708733714*^9}, {3.724229898055295*^9, 
   3.724229898622864*^9}, {3.7242303981892724`*^9, 3.7242304013050966`*^9}, {
   3.724230431880333*^9, 
   3.724230435720888*^9}},ExpressionUUID->"10535dc6-761d-4fe0-b220-\
60236aff34b4"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4.8, 0.19389172793274845}, \
{6.25, 0.2057964898375102}], 
          RectangleBox[{0., 0.2057964898375102}, {1.45, 0.2177012517422722}], 
          RectangleBox[{2.4, 0.22960601364703406}, \
{3.85, 0.24151077555179604}], 
          RectangleBox[{7.2, 0.25341553745655804}, \
{8.649999999999999, 0.2653202993613199}], 
          RectangleBox[{4.8, 0.27722506126608165}, \
{6.25, 0.2891298231708436}], 
          RectangleBox[{6.45, 0.27722506126608165}, \
{6.592499999999999, 0.2891298231708436}], 
          RectangleBox[{6.75, 0.27722506126608165}, \
{6.8925, 0.2891298231708436}], 
          RectangleBox[{0., 0.2891298231708436}, {1.45, 0.3010345850756056}], 
          RectangleBox[{1.65, 0.2891298231708436}, \
{1.7925, 0.3010345850756056}], 
          RectangleBox[{1.95, 0.2891298231708436}, \
{2.0925000000000002, 0.3010345850756056}], 
          RectangleBox[{2.4, 0.31293934698036746}, \
{3.85, 0.3248441088851295}], 
          RectangleBox[{4.05, 0.31293934698036746}, \
{4.1925, 0.3248441088851295}], 
          RectangleBox[{4.35, 0.31293934698036746}, \
{4.4925, 0.3248441088851295}], 
          RectangleBox[{7.2, 0.33674887078989135}, \
{8.649999999999999, 0.34865363269465305}], 
          RectangleBox[{8.85, 0.33674887078989135}, \
{8.9925, 0.34865363269465305}], 
          RectangleBox[{9.15, 0.33674887078989135}, \
{9.2925, 0.34865363269465305}], 
          RectangleBox[{0., 0.37246315650417705}, {0.57, 0.3843679184089389}],
           RectangleBox[{0.6, 0.37246315650417705}, \
{1.17, 0.3843679184089389}], 
          RectangleBox[{1.2, 0.37246315650417705}, \
{1.77, 0.3843679184089389}], 
          RectangleBox[{1.8, 0.37246315650417705}, \
{1.9425, 0.3843679184089389}], 
          RectangleBox[{2.1, 0.37246315650417705}, \
{2.385, 0.3843679184089389}], 
          RectangleBox[{2.4, 0.37246315650417705}, \
{2.97, 0.3843679184089389}], 
          
          RectangleBox[{3., 0.37246315650417705}, \
{3.5700000000000003, 0.3843679184089389}], 
          RectangleBox[{3.6, 0.37246315650417705}, \
{4.17, 0.3843679184089389}], 
          RectangleBox[{4.2, 0.37246315650417705}, \
{4.342499999999999, 0.3843679184089389}], 
          RectangleBox[{4.5, 0.37246315650417705}, \
{4.785, 0.3843679184089389}], 
          RectangleBox[{4.8, 0.37246315650417705}, \
{5.37, 0.3843679184089389}], 
          RectangleBox[{5.4, 0.37246315650417705}, \
{5.97, 0.3843679184089389}], 
          RectangleBox[{6., 0.37246315650417705}, \
{6.569999999999999, 0.3843679184089389}], 
          RectangleBox[{6.6, 0.37246315650417705}, \
{6.7425, 0.3843679184089389}], 
          RectangleBox[{6.9, 0.37246315650417705}, \
{7.1850000000000005, 0.3843679184089389}], 
          RectangleBox[{7.2, 0.37246315650417705}, \
{7.77, 0.3843679184089389}], 
          RectangleBox[{7.8, 0.37246315650417705}, \
{8.370000000000001, 0.3843679184089389}], 
          RectangleBox[{8.4, 0.37246315650417705}, \
{8.97, 0.3843679184089389}], 
          RectangleBox[{9., 0.37246315650417705}, \
{9.1425, 0.3843679184089389}], 
          RectangleBox[{9.3, 0.37246315650417705}, \
{9.584999999999999, 0.3843679184089389}], 
          RectangleBox[{0., 0.3962726803137009}, {0.57, 0.40817744221846264}],
           RectangleBox[{0.6, 0.3962726803137009}, \
{1.17, 0.40817744221846264}], 
          RectangleBox[{1.2, 0.3962726803137009}, \
{1.77, 0.40817744221846264}], 
          RectangleBox[{2.4, 0.3962726803137009}, \
{2.97, 0.40817744221846264}], 
          RectangleBox[{3., 0.3962726803137009}, \
{3.5700000000000003, 0.40817744221846264}], 
          RectangleBox[{3.6, 0.3962726803137009}, \
{4.17, 0.40817744221846264}], 
          RectangleBox[{0., 0.43198696602798653}, {0.57, 0.4438917279327484}],
           RectangleBox[{0.6, 0.43198696602798653}, \
{1.17, 0.4438917279327484}], 
          RectangleBox[{1.2, 0.43198696602798653}, \
{1.77, 0.4438917279327484}], 
          RectangleBox[{1.8, 0.43198696602798653}, \
{1.9425, 0.4438917279327484}], 
          RectangleBox[{7.2, 0.43198696602798653}, \
{7.77, 0.4438917279327484}], 
          RectangleBox[{7.8, 0.43198696602798653}, 
           {8.370000000000001, 0.4438917279327484}], 
          RectangleBox[{8.4, 0.43198696602798653}, \
{8.97, 0.4438917279327484}], 
          RectangleBox[{2.4, 0.45579648983751037}, \
{2.97, 0.4677012517422721}], 
          RectangleBox[{3., 0.45579648983751037}, \
{3.5700000000000003, 0.4677012517422721}], 
          RectangleBox[{3.6, 0.45579648983751037}, \
{4.17, 0.4677012517422721}], 
          RectangleBox[{4.2, 0.45579648983751037}, \
{4.342499999999999, 0.4677012517422721}], 
          RectangleBox[{4.8, 0.45579648983751037}, \
{5.37, 0.4677012517422721}], 
          RectangleBox[{5.4, 0.45579648983751037}, \
{5.97, 0.4677012517422721}], 
          RectangleBox[{6., 0.45579648983751037}, \
{6.569999999999999, 0.4677012517422721}], 
          RectangleBox[{4.8, 0.4796060136470343}, \
{5.37, 0.49151077555179606}], 
          RectangleBox[{5.4, 0.4796060136470343}, \
{5.97, 0.49151077555179606}], 
          RectangleBox[{6., 0.4796060136470343}, \
{6.569999999999999, 0.49151077555179606}], 
          RectangleBox[{6.6, 0.4796060136470343}, \
{6.7425, 0.49151077555179606}], 
          RectangleBox[{7.2, 0.4796060136470343}, \
{7.77, 0.49151077555179606}], 
          RectangleBox[{7.8, 0.4796060136470343}, \
{8.370000000000001, 0.49151077555179606}], 
          RectangleBox[{8.4, 0.4796060136470343}, \
{8.97, 0.49151077555179606}], 
          RectangleBox[{9., 0.4796060136470343}, \
{9.1425, 0.49151077555179606}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"9.6\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               396, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               432, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               432, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               432, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               432, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               432, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               432, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               468, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               468, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               468, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               504, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               504, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               576, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               576, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               720, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               720, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               720, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               720, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               720, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               720, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               864, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               864, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               864, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               864, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               864, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               864, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               936, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               936, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               972, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1008, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1008, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1008, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1008, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1008, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1008, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1044, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1044, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1044, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1080, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1080, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1152, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1152, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1152, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1152, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1152, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1152, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1296, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1296, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1296, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1296, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1296, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1296, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1440, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1440, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1440, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1440, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1440, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1440, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1512, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1512, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1548, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1584, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1584, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1584, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1584, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1584, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1584, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1620, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1620, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1620, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1656, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1656, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1728, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1728, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               1728, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1728, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1728, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1728, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1872, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1872, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1872, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               1872, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1872, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               1872, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               2016, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2016, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2016, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2016, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               2016, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               2016, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               2088, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2088, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2124, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2160, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2160, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2160, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2160, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2160, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2160, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2196, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               2196, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2196, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2232, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               2232, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               2304, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 240]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    Sound[
     SoundNote[{-19, -12}, 
      Rational[3, 2], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[33, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[39, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17, -10}, 
      Rational[3, 2], "Piano", SoundVolume -> 1], {
      Rational[12, 5]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[81, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[87, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20, -13}, 
      Rational[3, 2], "Piano", SoundVolume -> 1], {
      Rational[24, 5]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[129, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[27, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15, -8}, 
      Rational[3, 2], "Piano", SoundVolume -> 1], {
      Rational[36, 5]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[177, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[3, 20], "Piano", SoundVolume -> 1], {
      Rational[183, 20]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {
      Rational[3, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {
      Rational[6, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0}, 
      Rational[3, 20], "Piano", SoundVolume -> 1.224744871391589], {
      Rational[9, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 10], "Piano", SoundVolume -> 1], {
      Rational[21, 10]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {
      Rational[12, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {3}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {
      Rational[18, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2}, 
      Rational[3, 20], "Piano", SoundVolume -> 1.224744871391589], {
      Rational[21, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 10], "Piano", SoundVolume -> 1], {
      Rational[9, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {
      Rational[24, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {
      Rational[27, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 4}, 
      Rational[3, 20], "Piano", SoundVolume -> 1.224744871391589], {
      Rational[33, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 10], "Piano", SoundVolume -> 1], {
      Rational[69, 10]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {
      Rational[36, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {
      Rational[39, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[3, 5], "Piano", SoundVolume -> 1], {
      Rational[42, 5]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 4}, 
      Rational[3, 20], "Piano", SoundVolume -> 1.224744871391589], {9}, 
     SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 10], "Piano", SoundVolume -> 1], {
      Rational[93, 10]}, SoundVolume -> 0.8944271909999159]}]]], "Output",
 CellChangeTimes->{
  3.7242283215680857`*^9, {3.7242283625680933`*^9, 3.724228487755232*^9}, 
   3.7242286076737113`*^9, {3.7242286890694532`*^9, 3.724228694520585*^9}, {
   3.7242288192223682`*^9, 3.7242288476943493`*^9}, 3.724229134710978*^9, 
   3.724229628954482*^9, {3.72422966056115*^9, 3.724229704122606*^9}, {
   3.7242297354779873`*^9, 3.724229755157592*^9}, 3.7242298000820813`*^9, 
   3.724229899502661*^9, {3.7242299306108265`*^9, 3.724229941889377*^9}, 
   3.724230069842608*^9, 3.7242303144986777`*^9, 3.7242304025626254`*^9, 
   3.7242304370522475`*^9},ExpressionUUID->"57aa6444-5472-4745-b800-\
fbb82ba01042"]
}, Open  ]],

Cell["\:5c06\:5de6\:53f3\:624b\:94a2\:7434\:5c01\:88c5\:6210\:7ec7\:4f53\:6a21\
\:5757\:ff0c\:63a5\:6536\:53c2\:6570\:4e3a\:548c\:5f26\:8fdb\:884c\:3001\:521d\
\:59cb\:5217\:3001\:5de6\:53f3\:624b\:8282\:594f\:578b", "Text",
 CellChangeTimes->{{3.7242307093325124`*^9, 
  3.724230776904007*^9}},ExpressionUUID->"5551fc1f-e902-4b57-8e2a-\
b8118d77d0eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PianoLR", "[", 
   RowBox[{"cp_", ",", "start_", ",", "lepat_", ",", "ripat_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"l", "=", 
       RowBox[{"ChordPro", "[", 
        RowBox[{"cp", ",", "start"}], "]"}]}], ",", "left", ",", "righ"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"left", "=", 
      RowBox[{"StringJoin", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"StringReplace", "[", 
            RowBox[{
             RowBox[{"ToString", "[", 
              RowBox[{"l", "\[LeftDoubleBracket]", 
               RowBox[{"i", ",", 
                RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}], "]"}], 
             ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", 
               RowBox[{"\"\<{\>\"", "\[Rule]", "\"\<[\>\""}], ",", 
               RowBox[{"\"\<}\>\"", "\[Rule]", "\"\<> \>\""}]}], "}"}]}], 
            "]"}], ",", "\[IndentingNewLine]", "lepat"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "cp", "]"}]}], "}"}]}], "]"}], "]"}]}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"righ", "=", 
      RowBox[{"StringJoin", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"StringReplace", "[", 
            RowBox[{
             RowBox[{"ToString", "[", 
              RowBox[{"l", "\[LeftDoubleBracket]", 
               RowBox[{"i", ",", 
                RowBox[{"3", ";;", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", 
                   RowBox[{"Length", "[", "start", "]"}]}], ")"}]}]}], 
               "\[RightDoubleBracket]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", 
               RowBox[{"\"\<{\>\"", "\[Rule]", "\"\<[\>\""}], ",", 
               RowBox[{"\"\<}\>\"", "\[Rule]", "\"\<> \>\""}]}], "}"}]}], 
            "]"}], ",", "\[IndentingNewLine]", "ripat"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "cp", "]"}]}], "}"}]}], "]"}], "]"}]}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{
      "\"\<[left] i[Midi[Piano,-24]] v[1]\n[righ] i[Midi[Piano,-24]] v[.8]\n\
[left] |0] \>\"", "<>", "left", "<>", "\"\<\\n\>\"", "<>", 
       "\[IndentingNewLine]", "\"\<[righ] |0] \>\"", "<>", "righ"}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.7242307839293756`*^9, 3.7242307906411247`*^9}, {
  3.7242308356278152`*^9, 3.7242310337255893`*^9}, {3.7242310967625475`*^9, 
  3.724231113186604*^9}},ExpressionUUID->"b18a1a32-0af8-4ee0-aa16-\
5d56bccbe116"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Music", "[", 
  RowBox[{"PianoLR", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "3", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", 
    "\"\<s-_ 0= b= 0= b= | \>\"", ",", "\"\<s s s z=+ 0= a_ | \>\""}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.724230797578432*^9, 3.7242308064112053`*^9}, {
   3.7242308983041945`*^9, 3.724230907426317*^9}, 
   3.7242312008964453`*^9},ExpressionUUID->"c97d10c2-0bdc-429a-aee8-\
3ce60a41fa7f"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4., 0.19389172793274845}, {5.2, 0.2057964898375102}], 
          RectangleBox[{0., 0.2057964898375102}, {1.2, 0.2177012517422722}], 
          RectangleBox[{2., 0.22960601364703406}, {3.2, 0.24151077555179604}],
           RectangleBox[{6., 0.25341553745655804}, {7.2, 0.2653202993613199}],
           RectangleBox[{4., 0.27722506126608165}, {5.2, 0.2891298231708436}],
           RectangleBox[{5.375, 0.27722506126608165}, \
{5.49375, 0.2891298231708436}], 
          RectangleBox[{5.625, 0.27722506126608165}, \
{5.74375, 0.2891298231708436}], 
          RectangleBox[{0., 0.2891298231708436}, {1.2, 0.3010345850756056}], 
          RectangleBox[{1.375, 0.2891298231708436}, \
{1.49375, 0.3010345850756056}], 
          RectangleBox[{1.625, 0.2891298231708436}, \
{1.74375, 0.3010345850756056}], 
          RectangleBox[{2., 0.31293934698036746}, {3.2, 0.3248441088851295}], 
          RectangleBox[{3.375, 0.31293934698036746}, \
{3.49375, 0.3248441088851295}], 
          RectangleBox[{3.625, 0.31293934698036746}, \
{3.74375, 0.3248441088851295}], 
          RectangleBox[{6., 0.33674887078989135}, {7.2, 0.34865363269465305}],
           RectangleBox[{7.375, 0.33674887078989135}, \
{7.49375, 0.34865363269465305}], 
          RectangleBox[{7.625, 0.33674887078989135}, \
{7.74375, 0.34865363269465305}], 
          RectangleBox[{0., 0.37246315650417705}, \
{0.475, 0.3843679184089389}], 
          RectangleBox[{0.5, 0.37246315650417705}, \
{0.975, 0.3843679184089389}], 
          RectangleBox[{1., 0.37246315650417705}, \
{1.475, 0.3843679184089389}], 
          RectangleBox[{1.5, 0.37246315650417705}, \
{1.61875, 0.3843679184089389}], 
          RectangleBox[{1.75, 0.37246315650417705}, \
{1.9875, 0.3843679184089389}], 
          RectangleBox[{2., 0.37246315650417705}, \
{2.475, 0.3843679184089389}], 
          RectangleBox[{2.5, 0.37246315650417705}, \
{2.975, 0.3843679184089389}], 
          RectangleBox[{3., 0.37246315650417705}, \
{3.475, 0.3843679184089389}], 
          RectangleBox[{3.5, 0.37246315650417705}, \
{3.61875, 0.3843679184089389}], 
          RectangleBox[{3.75, 0.37246315650417705}, \
{3.9875, 0.3843679184089389}], 
          RectangleBox[{4., 0.37246315650417705}, \
{4.475, 0.3843679184089389}], 
          RectangleBox[{4.5, 0.37246315650417705}, \
{4.975, 0.3843679184089389}], 
          RectangleBox[{5., 0.37246315650417705}, \
{5.475, 0.3843679184089389}], 
          RectangleBox[{5.5, 0.37246315650417705}, \
{5.61875, 0.3843679184089389}], 
          RectangleBox[{5.75, 0.37246315650417705}, \
{5.9875, 0.3843679184089389}], 
          RectangleBox[{6., 0.37246315650417705}, \
{6.475, 0.3843679184089389}], 
          RectangleBox[{6.5, 0.37246315650417705}, \
{6.975, 0.3843679184089389}], 
          RectangleBox[{7., 0.37246315650417705}, \
{7.475, 0.3843679184089389}], 
          RectangleBox[{7.5, 0.37246315650417705}, \
{7.61875, 0.3843679184089389}], 
          RectangleBox[{7.75, 0.37246315650417705}, \
{7.9875, 0.3843679184089389}], 
          RectangleBox[{0., 0.3962726803137009}, \
{0.475, 0.40817744221846264}], 
          RectangleBox[{0.5, 0.3962726803137009}, \
{0.975, 0.40817744221846264}], 
          RectangleBox[{1., 0.3962726803137009}, \
{1.475, 0.40817744221846264}], 
          RectangleBox[{2., 0.3962726803137009}, \
{2.475, 0.40817744221846264}], 
          RectangleBox[{2.5, 0.3962726803137009}, \
{2.975, 0.40817744221846264}], 
          RectangleBox[{3., 0.3962726803137009}, \
{3.475, 0.40817744221846264}], 
          RectangleBox[{0., 0.43198696602798653}, \
{0.475, 0.4438917279327484}], 
          RectangleBox[{0.5, 0.43198696602798653}, \
{0.975, 0.4438917279327484}], 
          RectangleBox[{1., 0.43198696602798653}, \
{1.475, 0.4438917279327484}], 
          RectangleBox[{1.5, 0.43198696602798653}, \
{1.61875, 0.4438917279327484}], 
          RectangleBox[{6., 0.43198696602798653}, \
{6.475, 0.4438917279327484}], 
          RectangleBox[{6.5, 0.43198696602798653}, \
{6.975, 0.4438917279327484}], 
          RectangleBox[{7., 0.43198696602798653}, \
{7.475, 0.4438917279327484}], 
          
          RectangleBox[{2., 0.45579648983751037}, \
{2.475, 0.4677012517422721}], 
          RectangleBox[{2.5, 0.45579648983751037}, \
{2.975, 0.4677012517422721}], 
          RectangleBox[{3., 0.45579648983751037}, \
{3.475, 0.4677012517422721}], 
          RectangleBox[{3.5, 0.45579648983751037}, \
{3.61875, 0.4677012517422721}], 
          RectangleBox[{4., 0.45579648983751037}, \
{4.475, 0.4677012517422721}], 
          RectangleBox[{4.5, 0.45579648983751037}, \
{4.975, 0.4677012517422721}], 
          RectangleBox[{5., 0.45579648983751037}, \
{5.475, 0.4677012517422721}], 
          RectangleBox[{4., 0.4796060136470343}, \
{4.475, 0.49151077555179606}], 
          RectangleBox[{4.5, 0.4796060136470343}, \
{4.975, 0.49151077555179606}], 
          RectangleBox[{5., 0.4796060136470343}, \
{5.475, 0.49151077555179606}], 
          RectangleBox[{5.5, 0.4796060136470343}, \
{5.61875, 0.49151077555179606}], 
          RectangleBox[{6., 0.4796060136470343}, \
{6.475, 0.49151077555179606}], 
          RectangleBox[{6.5, 0.4796060136470343}, \
{6.975, 0.49151077555179606}], 
          RectangleBox[{7., 0.4796060136470343}, \
{7.475, 0.49151077555179606}], 
          RectangleBox[{7.5, 0.4796060136470343}, \
{7.61875, 0.49151077555179606}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"8\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               60, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               60, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               66, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               72, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               72, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               72, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               72, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               78, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               78, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               78, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               156, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               156, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               162, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               168, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               168, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               168, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               168, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               174, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               174, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               174, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               252, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               252, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               258, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               264, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               264, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               264, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               264, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               270, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               270, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               270, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               348, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               348, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               354, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               366, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               366, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               366, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 48]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    Sound[
     SoundNote[{-19, -12}, 
      Rational[5, 4], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[11, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[13, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17, -10}, 
      Rational[5, 4], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[27, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[29, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20, -13}, 
      Rational[5, 4], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[43, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[45, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15, -8}, 
      Rational[5, 4], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[59, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[61, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[1, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {1}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1.224744871391589], {
      Rational[3, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[7, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[5, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {3}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1.224744871391589], {
      Rational[7, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[15, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[9, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {5}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1.224744871391589], {
      Rational[11, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[23, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[13, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {7}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1.224744871391589], {
      Rational[15, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[31, 4]}, SoundVolume -> 0.8944271909999159]}]]], "Output",
 CellChangeTimes->{3.7242312021455097`*^9, 
  3.7242327037619796`*^9},ExpressionUUID->"d825a759-1dcc-4010-b64c-\
773096aa8291"]
}, Open  ]],

Cell["\:5c01\:88c5\:4e4b\:540e\:ff0c\:6362\:4e2a\:8282\:594f\:578b\:5c31\:5f88\
\:65b9\:4fbf\:4e86\:ff08\:53c2\:8003\:54d4\:7ad9\:7f16\:66f2\:6559\:7a0b \
av9719573 \:94a2\:7434\:9ad8\:7ea7\:6280\:5de7\:90e8\:5206\:ff09", "Text",
 CellChangeTimes->{{3.724231223295457*^9, 3.724231236335464*^9}, {
  3.7242314794666204`*^9, 
  3.724231513896345*^9}},ExpressionUUID->"110170bf-6e44-4d51-b94b-\
78c513a5e246"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Music", "[", 
  RowBox[{"PianoLR", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "3", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", 
    "\"\<s 0_= b= 0= b= 0_ b | \>\"", ",", 
    "\"\<s s z=+ 0= a= b= 0= s_= | \>\""}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.724230797578432*^9, 3.7242308064112053`*^9}, {
   3.7242308983041945`*^9, 3.724230907426317*^9}, 3.7242312008964453`*^9, {
   3.7242316154689417`*^9, 
   3.724231734847023*^9}},ExpressionUUID->"c8d53dbc-6c59-4fc8-a5f1-\
baf7532246ed"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4., 0.19389172793274845}, \
{4.475, 0.2057964898375102}], 
          RectangleBox[{0., 0.2057964898375102}, {0.475, 0.2177012517422722}],
           RectangleBox[{2., 0.22960601364703406}, \
{2.475, 0.24151077555179604}], 
          RectangleBox[{6., 0.25341553745655804}, \
{6.475, 0.2653202993613199}], 
          RectangleBox[{4., 0.27722506126608165}, \
{4.475, 0.2891298231708436}], 
          RectangleBox[{4.875, 0.27722506126608165}, \
{4.99375, 0.2891298231708436}], 
          RectangleBox[{5.125, 0.27722506126608165}, \
{5.24375, 0.2891298231708436}], 
          RectangleBox[{5.5, 0.27722506126608165}, \
{5.975, 0.2891298231708436}], 
          RectangleBox[{0., 0.2891298231708436}, {0.475, 0.3010345850756056}],
           RectangleBox[{0.875, 0.2891298231708436}, \
{0.99375, 0.3010345850756056}], 
          RectangleBox[{1.125, 0.2891298231708436}, \
{1.24375, 0.3010345850756056}], 
          RectangleBox[{1.5, 0.2891298231708436}, \
{1.975, 0.3010345850756056}], 
          RectangleBox[{2., 0.31293934698036746}, \
{2.475, 0.3248441088851295}], 
          RectangleBox[{2.875, 0.31293934698036746}, \
{2.99375, 0.3248441088851295}], 
          RectangleBox[{3.125, 0.31293934698036746}, \
{3.24375, 0.3248441088851295}], 
          RectangleBox[{3.5, 0.31293934698036746}, \
{3.975, 0.3248441088851295}], 
          RectangleBox[{6., 0.33674887078989135}, \
{6.475, 0.34865363269465305}], 
          RectangleBox[{6.875, 0.33674887078989135}, \
{6.99375, 0.34865363269465305}], 
          RectangleBox[{7.125, 0.33674887078989135}, \
{7.24375, 0.34865363269465305}], 
          RectangleBox[{7.5, 0.33674887078989135}, \
{7.975, 0.34865363269465305}], 
          RectangleBox[{0., 0.37246315650417705}, \
{0.475, 0.3843679184089389}], 
          RectangleBox[{0.5, 0.37246315650417705}, \
{0.975, 0.3843679184089389}], 
          RectangleBox[{1., 0.37246315650417705}, \
{1.11875, 0.3843679184089389}], 
          RectangleBox[{1.25, 0.37246315650417705}, \
{1.36875, 0.3843679184089389}], 
          RectangleBox[{1.625, 0.37246315650417705}, \
{1.98125, 0.3843679184089389}], 
          RectangleBox[{2., 0.37246315650417705}, \
{2.475, 0.3843679184089389}], 
          RectangleBox[{2.5, 0.37246315650417705}, \
{2.975, 0.3843679184089389}], 
          RectangleBox[{3., 0.37246315650417705}, \
{3.11875, 0.3843679184089389}], 
          RectangleBox[{3.25, 0.37246315650417705}, \
{3.36875, 0.3843679184089389}], 
          RectangleBox[{3.625, 0.37246315650417705}, \
{3.98125, 0.3843679184089389}], 
          RectangleBox[{4., 0.37246315650417705}, \
{4.475, 0.3843679184089389}], 
          RectangleBox[{4.5, 0.37246315650417705}, \
{4.975, 0.3843679184089389}], 
          RectangleBox[{5., 0.37246315650417705}, \
{5.11875, 0.3843679184089389}], 
          RectangleBox[{5.25, 0.37246315650417705}, \
{5.36875, 0.3843679184089389}], 
          RectangleBox[{5.625, 0.37246315650417705}, \
{5.98125, 0.3843679184089389}], 
          RectangleBox[{6., 0.37246315650417705}, \
{6.475, 0.3843679184089389}], 
          RectangleBox[{6.5, 0.37246315650417705}, \
{6.975, 0.3843679184089389}], 
          RectangleBox[{7., 0.37246315650417705}, \
{7.11875, 0.3843679184089389}], 
          RectangleBox[{7.25, 0.37246315650417705}, \
{7.36875, 0.3843679184089389}], 
          RectangleBox[{7.625, 0.37246315650417705}, \
{7.98125, 0.3843679184089389}], 
          RectangleBox[{0., 0.3962726803137009}, \
{0.475, 0.40817744221846264}], 
          RectangleBox[{0.5, 0.3962726803137009}, \
{0.975, 0.40817744221846264}], 
          RectangleBox[{1.375, 0.3962726803137009}, \
{1.49375, 0.40817744221846264}], 
          RectangleBox[{1.625, 0.3962726803137009}, \
{1.98125, 0.40817744221846264}], 
          RectangleBox[{2., 0.3962726803137009}, \
{2.475, 0.40817744221846264}], 
          RectangleBox[{2.5, 0.3962726803137009}, \
{2.975, 0.40817744221846264}], 
          RectangleBox[{3.375, 0.3962726803137009}, \
{3.49375, 0.40817744221846264}], 
          RectangleBox[{3.625, 0.3962726803137009}, \
{3.98125, 0.40817744221846264}], 
          RectangleBox[{0., 0.43198696602798653}, \
{0.475, 0.4438917279327484}], 
          RectangleBox[{0.5, 0.43198696602798653}, \
{0.975, 0.4438917279327484}], 
          RectangleBox[{1., 0.43198696602798653}, \
{1.11875, 0.4438917279327484}], 
          RectangleBox[{1.625, 0.43198696602798653}, \
{1.98125, 0.4438917279327484}], 
          RectangleBox[{6., 0.43198696602798653}, \
{6.475, 0.4438917279327484}], 
          RectangleBox[{6.5, 0.43198696602798653}, \
{6.975, 0.4438917279327484}], 
          RectangleBox[{7.375, 0.43198696602798653}, \
{7.49375, 0.4438917279327484}], 
          RectangleBox[{7.625, 0.43198696602798653}, \
{7.98125, 0.4438917279327484}], 
          RectangleBox[{2., 0.45579648983751037}, \
{2.475, 0.4677012517422721}], 
          RectangleBox[{2.5, 0.45579648983751037}, \
{2.975, 0.4677012517422721}], 
          RectangleBox[{3., 0.45579648983751037}, \
{3.11875, 0.4677012517422721}], 
          RectangleBox[{3.625, 0.45579648983751037}, \
{3.98125, 0.4677012517422721}], 
          RectangleBox[{4., 0.45579648983751037}, \
{4.475, 0.4677012517422721}], 
          RectangleBox[{4.5, 0.45579648983751037}, \
{4.975, 0.4677012517422721}], 
          RectangleBox[{5.375, 0.45579648983751037}, \
{5.49375, 0.4677012517422721}], 
          RectangleBox[{5.625, 0.45579648983751037}, \
{5.98125, 0.4677012517422721}], 
          RectangleBox[{4., 0.4796060136470343}, \
{4.475, 0.49151077555179606}], 
          RectangleBox[{4.5, 0.4796060136470343}, \
{4.975, 0.49151077555179606}], 
          RectangleBox[{5., 0.4796060136470343}, \
{5.11875, 0.49151077555179606}], 
          RectangleBox[{5.625, 0.4796060136470343}, \
{5.98125, 0.49151077555179606}], 
          RectangleBox[{6., 0.4796060136470343}, \
{6.475, 0.49151077555179606}], 
          RectangleBox[{6.5, 0.4796060136470343}, \
{6.975, 0.49151077555179606}], 
          RectangleBox[{7., 0.4796060136470343}, \
{7.11875, 0.49151077555179606}], 
          RectangleBox[{7.625, 0.4796060136470343}, \
{7.98125, 0.49151077555179606}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"8\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               42, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               54, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               60, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               60, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               66, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               66, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               72, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               78, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               78, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               78, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               138, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               150, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               156, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               156, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               162, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               162, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               168, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               174, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               174, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               174, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               234, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               246, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               252, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               252, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               258, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               258, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               264, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               270, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               270, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               270, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               330, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               342, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               348, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               348, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               354, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               354, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               366, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               366, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               366, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 48]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    Sound[
     SoundNote[{-19, -12}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[7, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[9, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[3, 2]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17, -10}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[23, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[25, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[7, 2]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20, -13}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[39, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[41, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[11, 2]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15, -8}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[55, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[57, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[15, 2]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[1, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1.224744871391589], {1}, 
     SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[5, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-3}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[11, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[13, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[5, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1.224744871391589], {3}, 
     SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[13, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-3}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[27, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[29, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[9, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1.224744871391589], {5}, 
     SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[21, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[43, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[45, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[13, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1.224744871391589], {7}, 
     SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[29, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[59, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[61, 8]}, SoundVolume -> 0.8944271909999159]}]]], "Output",
 CellChangeTimes->{{3.7242316858272715`*^9, 3.724231735406759*^9}, 
   3.724232694357238*^9},ExpressionUUID->"96acaac7-d401-482a-981f-\
829c08700a4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Music", "[", 
  RowBox[{"PianoLR", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "3", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", "\"\<a_` b_ 0 b- &| \>\"",
     ",", "\"\<s_ 0_ a_ b_ 0_ s_- | \>\""}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.724230797578432*^9, 3.7242308064112053`*^9}, {
   3.7242308983041945`*^9, 3.724230907426317*^9}, 3.7242312008964453`*^9, {
   3.7242316154689417`*^9, 3.724231734847023*^9}, {3.7242318095169797`*^9, 
   3.7242318525806637`*^9}, {3.7242319722169085`*^9, 3.724232049817228*^9}, 
   3.724232092737688*^9, 
   3.724232209743642*^9},ExpressionUUID->"037f2c94-a4ad-4210-9181-\
8e8d2ec027d9"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4., 0.19389172793274845}, {5.95, 0.2057964898375102}],
           RectangleBox[{0., 0.2057964898375102}, {1.95, 0.2177012517422722}],
           RectangleBox[{2., 0.22960601364703406}, \
{3.95, 0.24151077555179604}], 
          RectangleBox[{6., 0.25341553745655804}, {7.95, 0.2653202993613199}],
           RectangleBox[{4.25, 0.27722506126608165}, \
{4.4875, 0.2891298231708436}], 
          RectangleBox[{5., 0.27722506126608165}, {5.95, 0.2891298231708436}],
           RectangleBox[{0.25, 0.2891298231708436}, \
{0.4875, 0.3010345850756056}], 
          RectangleBox[{1., 0.2891298231708436}, {1.95, 0.3010345850756056}], 
          RectangleBox[{2.25, 0.31293934698036746}, \
{2.4875, 0.3248441088851295}], 
          RectangleBox[{3., 0.31293934698036746}, {3.95, 0.3248441088851295}],
           RectangleBox[{6.25, 0.33674887078989135}, \
{6.4875, 0.34865363269465305}], 
          RectangleBox[{7., 0.33674887078989135}, \
{7.95, 0.34865363269465305}], 
          RectangleBox[{0., 0.37246315650417705}, \
{0.2375, 0.3843679184089389}], 
          RectangleBox[{0.5, 0.37246315650417705}, \
{0.7375, 0.3843679184089389}], 
          RectangleBox[{1.25, 0.37246315650417705}, \
{1.9625, 0.3843679184089389}], 
          RectangleBox[{2., 0.37246315650417705}, \
{2.2375, 0.3843679184089389}], 
          RectangleBox[{2.5, 0.37246315650417705}, \
{2.7375, 0.3843679184089389}], 
          RectangleBox[{3.25, 0.37246315650417705}, \
{3.9625, 0.3843679184089389}], 
          RectangleBox[{4., 0.37246315650417705}, \
{4.2375, 0.3843679184089389}], 
          RectangleBox[{4.5, 0.37246315650417705}, \
{4.7375, 0.3843679184089389}], 
          RectangleBox[{5.25, 0.37246315650417705}, \
{5.9625, 0.3843679184089389}], 
          RectangleBox[{6., 0.37246315650417705}, \
{6.2375, 0.3843679184089389}], 
          RectangleBox[{6.5, 0.37246315650417705}, \
{6.7375, 0.3843679184089389}], 
          RectangleBox[{7.25, 0.37246315650417705}, \
{7.9625, 0.3843679184089389}], 
          RectangleBox[{0., 0.3962726803137009}, \
{0.2375, 0.40817744221846264}], 
          RectangleBox[{0.75, 0.3962726803137009}, \
{0.9875, 0.40817744221846264}], 
          RectangleBox[{1.25, 0.3962726803137009}, \
{1.9625, 0.40817744221846264}], 
          RectangleBox[{2., 0.3962726803137009}, \
{2.2375, 0.40817744221846264}], 
          RectangleBox[{2.75, 0.3962726803137009}, \
{2.9875, 0.40817744221846264}], 
          RectangleBox[{3.25, 0.3962726803137009}, \
{3.9625, 0.40817744221846264}], 
          RectangleBox[{0., 0.43198696602798653}, \
{0.2375, 0.4438917279327484}], 
          RectangleBox[{1.25, 0.43198696602798653}, \
{1.9625, 0.4438917279327484}], 
          RectangleBox[{6., 0.43198696602798653}, \
{6.2375, 0.4438917279327484}], 
          RectangleBox[{6.75, 0.43198696602798653}, \
{6.9875, 0.4438917279327484}], 
          RectangleBox[{7.25, 0.43198696602798653}, \
{7.9625, 0.4438917279327484}], 
          RectangleBox[{2., 0.45579648983751037}, \
{2.2375, 0.4677012517422721}], 
          RectangleBox[{3.25, 0.45579648983751037}, \
{3.9625, 0.4677012517422721}], 
          RectangleBox[{4., 0.45579648983751037}, \
{4.2375, 0.4677012517422721}], 
          RectangleBox[{4.75, 0.45579648983751037}, \
{4.9875, 0.4677012517422721}], 
          RectangleBox[{5.25, 0.45579648983751037}, \
{5.9625, 0.4677012517422721}], 
          RectangleBox[{4., 0.4796060136470343}, \
{4.2375, 0.49151077555179606}], 
          RectangleBox[{5.25, 0.4796060136470343}, \
{5.9625, 0.49151077555179606}], 
          RectangleBox[{6., 0.4796060136470343}, \
{6.2375, 0.49151077555179606}], 
          RectangleBox[{7.25, 0.4796060136470343}, \
{7.9625, 0.49151077555179606}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"8\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               12, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               12, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               12, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               12, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               36, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               60, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               60, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               60, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               108, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               108, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               108, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               108, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               132, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               156, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               156, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               156, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               204, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               204, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               204, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               204, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               228, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               252, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               252, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               252, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               300, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               300, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               300, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               300, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               324, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               348, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               348, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               348, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 48]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    Sound[
     SoundNote[{-19}, 2, "Piano", SoundVolume -> 1], {0}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[1, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 1, "Piano", SoundVolume -> 1], {1}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17}, 2, "Piano", SoundVolume -> 1], {2}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[9, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 1, "Piano", SoundVolume -> 1], {3}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20}, 2, "Piano", SoundVolume -> 1], {4}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[17, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 1, "Piano", SoundVolume -> 1], {5}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15}, 2, "Piano", SoundVolume -> 1], {6}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[25, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 1, "Piano", SoundVolume -> 1], {7}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[1, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-3}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[3, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[3, 4], "Piano", SoundVolume -> 1], {
      Rational[5, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[5, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-3}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[11, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[3, 4], "Piano", SoundVolume -> 1], {
      Rational[13, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[9, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{2}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[19, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[3, 4], "Piano", SoundVolume -> 1], {
      Rational[21, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[13, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{0}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[27, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[3, 4], "Piano", SoundVolume -> 1], {
      Rational[29, 4]}, SoundVolume -> 0.8944271909999159]}]]], "Output",
 CellChangeTimes->{{3.7242319942588696`*^9, 3.724232050317189*^9}, 
   3.72423209422403*^9, 3.7242322105888863`*^9, 
   3.724232685010321*^9},ExpressionUUID->"ebc6d406-0874-4318-a542-\
8b146a69374e"]
}, Open  ]],

Cell["\:5feb\:8282\:594f\:7684", "Text",
 CellChangeTimes->{{3.7242323462632103`*^9, 
  3.724232349582549*^9}},ExpressionUUID->"f4838b47-5470-4b2d-88e6-\
ccdf09cb18c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Music", "[", 
  RowBox[{"PianoLR", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "3", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", "\"\<s_ 0 s_ 0 s_| \>\"", 
    ",", "\"\<s= 0= s= 0= s= 0= s= 0= s= 0= s= 0= s= 0= s= 0= | \>\""}], 
   "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.724230797578432*^9, 3.7242308064112053`*^9}, {
   3.7242308983041945`*^9, 3.724230907426317*^9}, 3.7242312008964453`*^9, {
   3.7242316154689417`*^9, 3.724231734847023*^9}, {3.7242318095169797`*^9, 
   3.7242318525806637`*^9}, {3.7242319722169085`*^9, 3.724232049817228*^9}, 
   3.724232092737688*^9, 3.724232209743642*^9, {3.7242323845449457`*^9, 
   3.724232461164787*^9}, {3.7242325072027435`*^9, 
   3.724232526062422*^9}},ExpressionUUID->"3f8c3ed9-80b3-44af-81fd-\
7a50c50fcfac"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4., 0.19389172793274845}, \
{4.2375, 0.2057964898375102}], 
          RectangleBox[{4.75, 0.19389172793274845}, \
{4.9875, 0.2057964898375102}], 
          RectangleBox[{5.5, 0.19389172793274845}, \
{5.7375, 0.2057964898375102}], 
          RectangleBox[{0., 0.2057964898375102}, \
{0.2375, 0.2177012517422722}], 
          RectangleBox[{0.75, 0.2057964898375102}, \
{0.9875, 0.2177012517422722}], 
          RectangleBox[{1.5, 0.2057964898375102}, \
{1.7375, 0.2177012517422722}], 
          RectangleBox[{2., 0.22960601364703406}, \
{2.2375, 0.24151077555179604}], 
          RectangleBox[{2.75, 0.22960601364703406}, \
{2.9875, 0.24151077555179604}], 
          RectangleBox[{3.5, 0.22960601364703406}, \
{3.7375, 0.24151077555179604}], 
          RectangleBox[{6., 0.25341553745655804}, \
{6.2375, 0.2653202993613199}], 
          RectangleBox[{6.75, 0.25341553745655804}, \
{6.9875, 0.2653202993613199}], 
          RectangleBox[{7.5, 0.25341553745655804}, \
{7.7375, 0.2653202993613199}], 
          RectangleBox[{4., 0.27722506126608165}, \
{4.2375, 0.2891298231708436}], 
          RectangleBox[{4.75, 0.27722506126608165}, \
{4.9875, 0.2891298231708436}], 
          RectangleBox[{5.5, 0.27722506126608165}, \
{5.7375, 0.2891298231708436}], 
          RectangleBox[{0., 0.2891298231708436}, \
{0.2375, 0.3010345850756056}], 
          RectangleBox[{0.75, 0.2891298231708436}, \
{0.9875, 0.3010345850756056}], 
          RectangleBox[{1.5, 0.2891298231708436}, \
{1.7375, 0.3010345850756056}], 
          RectangleBox[{2., 0.31293934698036746}, \
{2.2375, 0.3248441088851295}], 
          RectangleBox[{2.75, 0.31293934698036746}, \
{2.9875, 0.3248441088851295}], 
          RectangleBox[{3.5, 0.31293934698036746}, \
{3.7375, 0.3248441088851295}], 
          RectangleBox[{6., 0.33674887078989135}, \
{6.2375, 0.34865363269465305}], 
          RectangleBox[{6.75, 0.33674887078989135}, \
{6.9875, 0.34865363269465305}], 
          RectangleBox[{7.5, 0.33674887078989135}, \
{7.7375, 0.34865363269465305}], 
          RectangleBox[{0., 0.37246315650417705}, \
{0.11875, 0.3843679184089389}], 
          RectangleBox[{0.25, 0.37246315650417705}, \
{0.36875, 0.3843679184089389}], 
          RectangleBox[{0.5, 0.37246315650417705}, \
{0.61875, 0.3843679184089389}], 
          RectangleBox[{0.75, 0.37246315650417705}, \
{0.86875, 0.3843679184089389}], 
          RectangleBox[{1., 0.37246315650417705}, \
{1.11875, 0.3843679184089389}], 
          RectangleBox[{1.25, 0.37246315650417705}, \
{1.36875, 0.3843679184089389}], 
          RectangleBox[{1.5, 0.37246315650417705}, \
{1.61875, 0.3843679184089389}], 
          RectangleBox[{1.75, 0.37246315650417705}, \
{1.86875, 0.3843679184089389}], 
          RectangleBox[{2., 0.37246315650417705}, \
{2.11875, 0.3843679184089389}], 
          RectangleBox[{2.25, 0.37246315650417705}, \
{2.36875, 0.3843679184089389}], 
          RectangleBox[{2.5, 0.37246315650417705}, \
{2.61875, 0.3843679184089389}], 
          RectangleBox[{2.75, 0.37246315650417705}, \
{2.86875, 0.3843679184089389}], 
          RectangleBox[{3., 0.37246315650417705}, \
{3.11875, 0.3843679184089389}], 
          RectangleBox[{3.25, 0.37246315650417705}, \
{3.36875, 0.3843679184089389}], 
          RectangleBox[{3.5, 0.37246315650417705}, \
{3.61875, 0.3843679184089389}], 
          RectangleBox[{3.75, 0.37246315650417705}, \
{3.86875, 0.3843679184089389}], 
          RectangleBox[{4., 0.37246315650417705}, \
{4.11875, 0.3843679184089389}], 
          RectangleBox[{4.25, 0.37246315650417705}, \
{4.36875, 0.3843679184089389}], 
          RectangleBox[{4.5, 0.37246315650417705}, \
{4.61875, 0.3843679184089389}], 
          RectangleBox[{4.75, 0.37246315650417705}, \
{4.86875, 0.3843679184089389}], 
          RectangleBox[{5., 0.37246315650417705}, \
{5.11875, 0.3843679184089389}], 
          RectangleBox[{5.25, 0.37246315650417705}, \
{5.36875, 0.3843679184089389}], 
          RectangleBox[{5.5, 0.37246315650417705}, \
{5.61875, 0.3843679184089389}], 
          RectangleBox[{5.75, 0.37246315650417705}, \
{5.86875, 0.3843679184089389}], 
          
          RectangleBox[{6., 0.37246315650417705}, \
{6.11875, 0.3843679184089389}], 
          RectangleBox[{6.25, 0.37246315650417705}, \
{6.36875, 0.3843679184089389}], 
          RectangleBox[{6.5, 0.37246315650417705}, \
{6.61875, 0.3843679184089389}], 
          RectangleBox[{6.75, 0.37246315650417705}, \
{6.86875, 0.3843679184089389}], 
          RectangleBox[{7., 0.37246315650417705}, \
{7.11875, 0.3843679184089389}], 
          RectangleBox[{7.25, 0.37246315650417705}, \
{7.36875, 0.3843679184089389}], 
          RectangleBox[{7.5, 0.37246315650417705}, \
{7.61875, 0.3843679184089389}], 
          RectangleBox[{7.75, 0.37246315650417705}, \
{7.86875, 0.3843679184089389}], 
          RectangleBox[{0., 0.3962726803137009}, \
{0.11875, 0.40817744221846264}], 
          RectangleBox[{0.25, 0.3962726803137009}, \
{0.36875, 0.40817744221846264}], 
          RectangleBox[{0.5, 0.3962726803137009}, \
{0.61875, 0.40817744221846264}], 
          RectangleBox[{0.75, 0.3962726803137009}, \
{0.86875, 0.40817744221846264}], 
          RectangleBox[{1., 0.3962726803137009}, \
{1.11875, 0.40817744221846264}], 
          RectangleBox[{1.25, 0.3962726803137009}, \
{1.36875, 0.40817744221846264}], 
          RectangleBox[{1.5, 0.3962726803137009}, \
{1.61875, 0.40817744221846264}], 
          RectangleBox[{1.75, 0.3962726803137009}, \
{1.86875, 0.40817744221846264}], 
          RectangleBox[{2., 0.3962726803137009}, \
{2.11875, 0.40817744221846264}], 
          RectangleBox[{2.25, 0.3962726803137009}, \
{2.36875, 0.40817744221846264}], 
          RectangleBox[{2.5, 0.3962726803137009}, \
{2.61875, 0.40817744221846264}], 
          RectangleBox[{2.75, 0.3962726803137009}, \
{2.86875, 0.40817744221846264}], 
          RectangleBox[{3., 0.3962726803137009}, \
{3.11875, 0.40817744221846264}], 
          RectangleBox[{3.25, 0.3962726803137009}, \
{3.36875, 0.40817744221846264}], 
          RectangleBox[{3.5, 0.3962726803137009}, \
{3.61875, 0.40817744221846264}], 
          RectangleBox[{3.75, 0.3962726803137009}, \
{3.86875, 0.40817744221846264}], 
          RectangleBox[{0., 0.43198696602798653}, \
{0.11875, 0.4438917279327484}], 
          RectangleBox[{0.25, 0.43198696602798653}, \
{0.36875, 0.4438917279327484}], 
          RectangleBox[{0.5, 0.43198696602798653}, \
{0.61875, 0.4438917279327484}], 
          RectangleBox[{0.75, 0.43198696602798653}, \
{0.86875, 0.4438917279327484}], 
          RectangleBox[{1., 0.43198696602798653}, \
{1.11875, 0.4438917279327484}], 
          RectangleBox[{1.25, 0.43198696602798653}, \
{1.36875, 0.4438917279327484}], 
          RectangleBox[{1.5, 0.43198696602798653}, \
{1.61875, 0.4438917279327484}], 
          RectangleBox[{1.75, 0.43198696602798653}, \
{1.86875, 0.4438917279327484}], 
          RectangleBox[{6., 0.43198696602798653}, \
{6.11875, 0.4438917279327484}], 
          RectangleBox[{6.25, 0.43198696602798653}, \
{6.36875, 0.4438917279327484}], 
          RectangleBox[{6.5, 0.43198696602798653}, \
{6.61875, 0.4438917279327484}], 
          RectangleBox[{6.75, 0.43198696602798653}, \
{6.86875, 0.4438917279327484}], 
          RectangleBox[{7., 0.43198696602798653}, \
{7.11875, 0.4438917279327484}], 
          RectangleBox[{7.25, 0.43198696602798653}, \
{7.36875, 0.4438917279327484}], 
          RectangleBox[{7.5, 0.43198696602798653}, \
{7.61875, 0.4438917279327484}], 
          RectangleBox[{7.75, 0.43198696602798653}, \
{7.86875, 0.4438917279327484}], 
          RectangleBox[{2., 0.45579648983751037}, \
{2.11875, 0.4677012517422721}], 
          RectangleBox[{2.25, 0.45579648983751037}, \
{2.36875, 0.4677012517422721}], 
          RectangleBox[{2.5, 0.45579648983751037}, \
{2.61875, 0.4677012517422721}], 
          RectangleBox[{2.75, 0.45579648983751037}, \
{2.86875, 0.4677012517422721}], 
          RectangleBox[{3., 0.45579648983751037}, \
{3.11875, 0.4677012517422721}], 
          RectangleBox[{3.25, 0.45579648983751037}, \
{3.36875, 0.4677012517422721}], 
          RectangleBox[{3.5, 0.45579648983751037}, \
{3.61875, 0.4677012517422721}], 
          RectangleBox[{3.75, 0.45579648983751037}, \
{3.86875, 0.4677012517422721}], 
          RectangleBox[{4., 0.45579648983751037}, \
{4.11875, 0.4677012517422721}], 
          RectangleBox[{4.25, 0.45579648983751037}, \
{4.36875, 0.4677012517422721}], 
          RectangleBox[{4.5, 0.45579648983751037}, \
{4.61875, 0.4677012517422721}], 
          
          RectangleBox[{4.75, 0.45579648983751037}, \
{4.86875, 0.4677012517422721}], 
          RectangleBox[{5., 0.45579648983751037}, \
{5.11875, 0.4677012517422721}], 
          RectangleBox[{5.25, 0.45579648983751037}, \
{5.36875, 0.4677012517422721}], 
          RectangleBox[{5.5, 0.45579648983751037}, \
{5.61875, 0.4677012517422721}], 
          RectangleBox[{5.75, 0.45579648983751037}, \
{5.86875, 0.4677012517422721}], 
          RectangleBox[{4., 0.4796060136470343}, \
{4.11875, 0.49151077555179606}], 
          RectangleBox[{4.25, 0.4796060136470343}, \
{4.36875, 0.49151077555179606}], 
          RectangleBox[{4.5, 0.4796060136470343}, \
{4.61875, 0.49151077555179606}], 
          RectangleBox[{4.75, 0.4796060136470343}, \
{4.86875, 0.49151077555179606}], 
          RectangleBox[{5., 0.4796060136470343}, \
{5.11875, 0.49151077555179606}], 
          RectangleBox[{5.25, 0.4796060136470343}, \
{5.36875, 0.49151077555179606}], 
          RectangleBox[{5.5, 0.4796060136470343}, \
{5.61875, 0.49151077555179606}], 
          RectangleBox[{5.75, 0.4796060136470343}, \
{5.86875, 0.49151077555179606}], 
          RectangleBox[{6., 0.4796060136470343}, \
{6.11875, 0.49151077555179606}], 
          RectangleBox[{6.25, 0.4796060136470343}, \
{6.36875, 0.49151077555179606}], 
          RectangleBox[{6.5, 0.4796060136470343}, \
{6.61875, 0.49151077555179606}], 
          RectangleBox[{6.75, 0.4796060136470343}, \
{6.86875, 0.49151077555179606}], 
          RectangleBox[{7., 0.4796060136470343}, \
{7.11875, 0.49151077555179606}], 
          RectangleBox[{7.25, 0.4796060136470343}, \
{7.36875, 0.49151077555179606}], 
          RectangleBox[{7.5, 0.4796060136470343}, \
{7.61875, 0.49151077555179606}], 
          RectangleBox[{7.75, 0.4796060136470343}, \
{7.86875, 0.49151077555179606}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"7.88\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               6, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               6, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               6, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               12, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               12, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               12, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               12, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               12, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               18, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               18, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               18, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               30, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               30, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               30, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               42, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               42, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               42, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               60, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               60, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               60, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               66, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               66, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               66, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               78, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               78, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               78, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               84, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               84, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               90, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               90, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               90, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               102, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               102, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               102, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               108, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               108, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               108, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               108, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               108, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               114, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               114, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               114, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               126, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               126, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               126, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               138, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               138, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               138, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               156, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               156, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               156, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               162, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               162, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               162, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               174, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               174, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               174, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               180, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               180, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               186, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               186, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               186, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               198, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               198, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               198, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               204, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               204, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               204, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               204, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               204, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               210, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               210, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               210, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               222, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               222, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               222, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               234, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               234, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               234, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               252, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               252, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               252, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               258, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               258, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               258, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               270, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               270, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               270, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               276, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               276, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               282, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               282, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               282, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               294, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               294, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               294, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               300, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               300, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               300, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               300, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               300, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               306, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               306, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               306, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               318, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               318, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               318, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               330, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               330, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               330, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               348, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               348, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               348, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               354, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               354, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               354, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               366, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               366, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               366, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               372, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               372, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               378, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               378, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               378, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 48]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    Sound[
     SoundNote[{-19, -12}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-19, -12}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[3, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-19, -12}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[3, 2]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17, -10}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17, -10}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[11, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17, -10}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[7, 2]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20, -13}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20, -13}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[19, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20, -13}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[11, 2]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15, -8}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15, -8}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[27, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15, -8}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[15, 2]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[1, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[1, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[3, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {1}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[5, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[3, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[7, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[9, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[5, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[11, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {3}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[13, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[7, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[15, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[17, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[9, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[19, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {5}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[21, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[11, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[23, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[25, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[13, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[27, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {7}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[29, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[15, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[31, 4]}, SoundVolume -> 0.8944271909999159]}]]], "Output",
 CellChangeTimes->{
  3.7242324702220526`*^9, {3.7242325094608755`*^9, 3.724232527070076*^9}, 
   3.7242326735672956`*^9},ExpressionUUID->"1009d9b9-984e-4eef-8ddf-\
887d2698ec03"]
}, Open  ]],

Cell["\:8f7b\:5feb\:5730", "Text",
 CellChangeTimes->{{3.7242325609236403`*^9, 
  3.7242325650978603`*^9}},ExpressionUUID->"3f0960d5-50fb-4603-99f3-\
1554d8063132"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Music", "[", 
  RowBox[{"PianoLR", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "3", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", "\"\<a_ 0_--_ a_| \>\"", 
    ",", "\"\<s= 0_= s= 0_= s= 0_= s | \>\""}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.724230797578432*^9, 3.7242308064112053`*^9}, {
   3.7242308983041945`*^9, 3.724230907426317*^9}, 3.7242312008964453`*^9, {
   3.7242316154689417`*^9, 3.724231734847023*^9}, {3.7242318095169797`*^9, 
   3.7242318525806637`*^9}, {3.7242319722169085`*^9, 3.724232049817228*^9}, 
   3.724232092737688*^9, 3.724232209743642*^9, {3.7242323845449457`*^9, 
   3.724232461164787*^9}, {3.7242325072027435`*^9, 3.724232526062422*^9}, {
   3.724232575451402*^9, 3.7242326319664636`*^9}, 
   3.7242327304100866`*^9},ExpressionUUID->"c35cf01f-ff99-4606-bc90-\
a40bc7200875"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4., 0.19389172793274845}, \
{4.2375, 0.2057964898375102}], 
          RectangleBox[{5.75, 0.19389172793274845}, \
{5.9875, 0.2057964898375102}], 
          RectangleBox[{0., 0.2057964898375102}, \
{0.2375, 0.2177012517422722}], 
          RectangleBox[{1.75, 0.2057964898375102}, \
{1.9875, 0.2177012517422722}], 
          RectangleBox[{2., 0.22960601364703406}, \
{2.2375, 0.24151077555179604}], 
          RectangleBox[{3.75, 0.22960601364703406}, \
{3.9875, 0.24151077555179604}], 
          RectangleBox[{6., 0.25341553745655804}, \
{6.2375, 0.2653202993613199}], 
          RectangleBox[{7.75, 0.25341553745655804}, \
{7.9875, 0.2653202993613199}], 
          RectangleBox[{0., 0.37246315650417705}, \
{0.11875, 0.3843679184089389}], 
          RectangleBox[{0.5, 0.37246315650417705}, \
{0.61875, 0.3843679184089389}], 
          RectangleBox[{1., 0.37246315650417705}, \
{1.11875, 0.3843679184089389}], 
          RectangleBox[{1.5, 0.37246315650417705}, \
{1.975, 0.3843679184089389}], 
          RectangleBox[{2., 0.37246315650417705}, \
{2.11875, 0.3843679184089389}], 
          RectangleBox[{2.5, 0.37246315650417705}, \
{2.61875, 0.3843679184089389}], 
          RectangleBox[{3., 0.37246315650417705}, \
{3.11875, 0.3843679184089389}], 
          RectangleBox[{3.5, 0.37246315650417705}, \
{3.975, 0.3843679184089389}], 
          RectangleBox[{4., 0.37246315650417705}, \
{4.11875, 0.3843679184089389}], 
          RectangleBox[{4.5, 0.37246315650417705}, \
{4.61875, 0.3843679184089389}], 
          RectangleBox[{5., 0.37246315650417705}, \
{5.11875, 0.3843679184089389}], 
          RectangleBox[{5.5, 0.37246315650417705}, \
{5.975, 0.3843679184089389}], 
          RectangleBox[{6., 0.37246315650417705}, \
{6.11875, 0.3843679184089389}], 
          RectangleBox[{6.5, 0.37246315650417705}, \
{6.61875, 0.3843679184089389}], 
          RectangleBox[{7., 0.37246315650417705}, \
{7.11875, 0.3843679184089389}], 
          RectangleBox[{7.5, 0.37246315650417705}, \
{7.975, 0.3843679184089389}], 
          RectangleBox[{0., 0.3962726803137009}, \
{0.11875, 0.40817744221846264}], 
          RectangleBox[{0.5, 0.3962726803137009}, \
{0.61875, 0.40817744221846264}], 
          RectangleBox[{1., 0.3962726803137009}, \
{1.11875, 0.40817744221846264}], 
          RectangleBox[{1.5, 0.3962726803137009}, \
{1.975, 0.40817744221846264}], 
          RectangleBox[{2., 0.3962726803137009}, \
{2.11875, 0.40817744221846264}], 
          RectangleBox[{2.5, 0.3962726803137009}, \
{2.61875, 0.40817744221846264}], 
          RectangleBox[{3., 0.3962726803137009}, \
{3.11875, 0.40817744221846264}], 
          RectangleBox[{3.5, 0.3962726803137009}, \
{3.975, 0.40817744221846264}], 
          RectangleBox[{0., 0.43198696602798653}, \
{0.11875, 0.4438917279327484}], 
          RectangleBox[{0.5, 0.43198696602798653}, \
{0.61875, 0.4438917279327484}], 
          RectangleBox[{1., 0.43198696602798653}, \
{1.11875, 0.4438917279327484}], 
          RectangleBox[{1.5, 0.43198696602798653}, \
{1.975, 0.4438917279327484}], 
          RectangleBox[{6., 0.43198696602798653}, \
{6.11875, 0.4438917279327484}], 
          RectangleBox[{6.5, 0.43198696602798653}, \
{6.61875, 0.4438917279327484}], 
          RectangleBox[{7., 0.43198696602798653}, \
{7.11875, 0.4438917279327484}], 
          RectangleBox[{7.5, 0.43198696602798653}, \
{7.975, 0.4438917279327484}], 
          RectangleBox[{2., 0.45579648983751037}, \
{2.11875, 0.4677012517422721}], 
          RectangleBox[{2.5, 0.45579648983751037}, \
{2.61875, 0.4677012517422721}], 
          RectangleBox[{3., 0.45579648983751037}, \
{3.11875, 0.4677012517422721}], 
          RectangleBox[{3.5, 0.45579648983751037}, \
{3.975, 0.4677012517422721}], 
          RectangleBox[{4., 0.45579648983751037}, \
{4.11875, 0.4677012517422721}], 
          RectangleBox[{4.5, 0.45579648983751037}, \
{4.61875, 0.4677012517422721}], 
          RectangleBox[{5., 0.45579648983751037}, \
{5.11875, 0.4677012517422721}], 
          RectangleBox[{5.5, 0.45579648983751037}, \
{5.975, 0.4677012517422721}], 
          RectangleBox[{4., 0.4796060136470343}, \
{4.11875, 0.49151077555179606}], 
          RectangleBox[{4.5, 0.4796060136470343}, \
{4.61875, 0.49151077555179606}], 
          RectangleBox[{5., 0.4796060136470343}, \
{5.11875, 0.49151077555179606}], 
          RectangleBox[{5.5, 0.4796060136470343}, \
{5.975, 0.49151077555179606}], 
          RectangleBox[{6., 0.4796060136470343}, \
{6.11875, 0.49151077555179606}], 
          RectangleBox[{6.5, 0.4796060136470343}, \
{6.61875, 0.49151077555179606}], 
          RectangleBox[{7., 0.4796060136470343}, \
{7.11875, 0.49151077555179606}], 
          RectangleBox[{7.5, 0.4796060136470343}, \
{7.975, 0.49151077555179606}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"8\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               6, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               6, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               6, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               12, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               30, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               30, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               30, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               84, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               102, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               102, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               102, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               108, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               126, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               126, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               126, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               180, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               198, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               198, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               198, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               204, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               222, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               222, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               222, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               276, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               294, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               294, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               294, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               300, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               318, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               318, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               318, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               372, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 48]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    Sound[
     SoundNote[{-19}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-19}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[7, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[15, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[23, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[31, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[1, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {1}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[3, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[5, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {3}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[7, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[9, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {5}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[11, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[13, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {7}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 2], "Piano", SoundVolume -> 1], {
      Rational[15, 2]}, SoundVolume -> 0.8944271909999159]}]]], "Output",
 CellChangeTimes->{3.7242325984429483`*^9, 3.72423263311662*^9, 
  3.724232664029049*^9, 
  3.724232734009181*^9},ExpressionUUID->"d88d5ace-5ab7-4177-8e70-\
b71d76ad4725"]
}, Open  ]],

Cell["\:6292\:60c5\:5730", "Text",
 CellChangeTimes->{{3.7242327722928505`*^9, 
  3.7242327761594343`*^9}},ExpressionUUID->"c781c894-7057-43f0-94fc-\
94873aa3fec5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Music", "[", 
  RowBox[{"PianoLR", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", "5", ",", "3", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", 
    "\"\<a_` b=_ b=_ b=_ b_ b= &| \>\"", ",", 
    "\"\<s=_ a=_ s=_ a=_ s_ a= | \>\""}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.724230797578432*^9, 3.7242308064112053`*^9}, {
   3.7242308983041945`*^9, 3.724230907426317*^9}, 3.7242312008964453`*^9, {
   3.7242316154689417`*^9, 3.724231734847023*^9}, {3.7242318095169797`*^9, 
   3.7242318525806637`*^9}, {3.7242319722169085`*^9, 3.724232049817228*^9}, 
   3.724232092737688*^9, 3.724232209743642*^9, {3.7242323845449457`*^9, 
   3.724232461164787*^9}, {3.7242325072027435`*^9, 3.724232526062422*^9}, {
   3.724232575451402*^9, 3.7242326319664636`*^9}, 3.7242327304100866`*^9, {
   3.7242327965248528`*^9, 3.724232974948309*^9}, {3.724233007495141*^9, 
   3.7242330114818487`*^9}, {3.724233092667014*^9, 
   3.7242331147381697`*^9}},ExpressionUUID->"7770e5c4-0228-4ca3-9c8b-\
4e3084bb2e46"],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4., 0.19389172793274845}, {5.7, 0.2057964898375102}], 
          RectangleBox[{0., 0.2057964898375102}, {1.7, 0.2177012517422722}], 
          RectangleBox[{2., 0.22960601364703406}, {3.7, 0.24151077555179604}],
           RectangleBox[{6., 0.25341553745655804}, {7.7, 0.2653202993613199}],
           RectangleBox[{4.25, 0.27722506126608165}, \
{4.60625, 0.2891298231708436}], 
          RectangleBox[{4.625, 0.27722506126608165}, \
{4.98125, 0.2891298231708436}], 
          RectangleBox[{5., 0.27722506126608165}, \
{5.35625, 0.2891298231708436}], 
          RectangleBox[{5.375, 0.27722506126608165}, \
{5.6125, 0.2891298231708436}], 
          RectangleBox[{5.625, 0.27722506126608165}, \
{5.74375, 0.2891298231708436}], 
          RectangleBox[{0.25, 0.2891298231708436}, \
{0.60625, 0.3010345850756056}], 
          RectangleBox[{0.625, 0.2891298231708436}, \
{0.98125, 0.3010345850756056}], 
          RectangleBox[{1., 0.2891298231708436}, \
{1.35625, 0.3010345850756056}], 
          RectangleBox[{1.375, 0.2891298231708436}, \
{1.6125, 0.3010345850756056}], 
          RectangleBox[{1.625, 0.2891298231708436}, \
{1.74375, 0.3010345850756056}], 
          RectangleBox[{2.25, 0.31293934698036746}, \
{2.60625, 0.3248441088851295}], 
          RectangleBox[{2.625, 0.31293934698036746}, \
{2.98125, 0.3248441088851295}], 
          RectangleBox[{3., 0.31293934698036746}, \
{3.35625, 0.3248441088851295}], 
          RectangleBox[{3.375, 0.31293934698036746}, \
{3.6125, 0.3248441088851295}], 
          RectangleBox[{3.625, 0.31293934698036746}, \
{3.74375, 0.3248441088851295}], 
          RectangleBox[{6.25, 0.33674887078989135}, \
{6.60625, 0.34865363269465305}], 
          RectangleBox[{6.625, 0.33674887078989135}, \
{6.98125, 0.34865363269465305}], 
          RectangleBox[{7., 0.33674887078989135}, \
{7.35625, 0.34865363269465305}], 
          RectangleBox[{7.375, 0.33674887078989135}, \
{7.6125, 0.34865363269465305}], 
          RectangleBox[{7.625, 0.33674887078989135}, \
{7.74375, 0.34865363269465305}], 
          RectangleBox[{0., 0.37246315650417705}, \
{0.35625, 0.3843679184089389}], 
          RectangleBox[{0.375, 0.37246315650417705}, \
{0.73125, 0.3843679184089389}], 
          RectangleBox[{0.75, 0.37246315650417705}, \
{1.10625, 0.3843679184089389}], 
          RectangleBox[{1.125, 0.37246315650417705}, \
{1.48125, 0.3843679184089389}], 
          RectangleBox[{1.5, 0.37246315650417705}, \
{1.7375, 0.3843679184089389}], 
          RectangleBox[{1.75, 0.37246315650417705}, \
{1.86875, 0.3843679184089389}], 
          RectangleBox[{2., 0.37246315650417705}, \
{2.35625, 0.3843679184089389}], 
          RectangleBox[{2.375, 0.37246315650417705}, \
{2.73125, 0.3843679184089389}], 
          RectangleBox[{2.75, 0.37246315650417705}, \
{3.10625, 0.3843679184089389}], 
          RectangleBox[{3.125, 0.37246315650417705}, \
{3.48125, 0.3843679184089389}], 
          RectangleBox[{3.5, 0.37246315650417705}, \
{3.7375, 0.3843679184089389}], 
          RectangleBox[{3.75, 0.37246315650417705}, \
{3.86875, 0.3843679184089389}], 
          RectangleBox[{4., 0.37246315650417705}, \
{4.35625, 0.3843679184089389}], 
          RectangleBox[{4.375, 0.37246315650417705}, \
{4.73125, 0.3843679184089389}], 
          RectangleBox[{4.75, 0.37246315650417705}, \
{5.10625, 0.3843679184089389}], 
          RectangleBox[{5.125, 0.37246315650417705}, \
{5.48125, 0.3843679184089389}], 
          RectangleBox[{5.5, 0.37246315650417705}, \
{5.7375, 0.3843679184089389}], 
          RectangleBox[{5.75, 0.37246315650417705}, \
{5.86875, 0.3843679184089389}], 
          RectangleBox[{6., 0.37246315650417705}, \
{6.35625, 0.3843679184089389}], 
          RectangleBox[{6.375, 0.37246315650417705}, \
{6.73125, 0.3843679184089389}], 
          RectangleBox[{6.75, 0.37246315650417705}, \
{7.10625, 0.3843679184089389}], 
          RectangleBox[{7.125, 0.37246315650417705}, \
{7.48125, 0.3843679184089389}], 
          RectangleBox[{7.5, 0.37246315650417705}, \
{7.7375, 0.3843679184089389}], 
          RectangleBox[{7.75, 0.37246315650417705}, \
{7.86875, 0.3843679184089389}], 
          
          RectangleBox[{0., 0.3962726803137009}, \
{0.35625, 0.40817744221846264}], 
          RectangleBox[{0.75, 0.3962726803137009}, \
{1.10625, 0.40817744221846264}], 
          RectangleBox[{1.5, 0.3962726803137009}, \
{1.7375, 0.40817744221846264}], 
          RectangleBox[{2., 0.3962726803137009}, \
{2.35625, 0.40817744221846264}], 
          RectangleBox[{2.75, 0.3962726803137009}, \
{3.10625, 0.40817744221846264}], 
          RectangleBox[{3.5, 0.3962726803137009}, \
{3.7375, 0.40817744221846264}], 
          RectangleBox[{0., 0.43198696602798653}, \
{0.35625, 0.4438917279327484}], 
          RectangleBox[{0.75, 0.43198696602798653}, \
{1.10625, 0.4438917279327484}], 
          RectangleBox[{1.5, 0.43198696602798653}, \
{1.7375, 0.4438917279327484}], 
          RectangleBox[{6., 0.43198696602798653}, \
{6.35625, 0.4438917279327484}], 
          RectangleBox[{6.75, 0.43198696602798653}, \
{7.10625, 0.4438917279327484}], 
          RectangleBox[{7.5, 0.43198696602798653}, \
{7.7375, 0.4438917279327484}], 
          RectangleBox[{2., 0.45579648983751037}, \
{2.35625, 0.4677012517422721}], 
          RectangleBox[{2.75, 0.45579648983751037}, \
{3.10625, 0.4677012517422721}], 
          RectangleBox[{3.5, 0.45579648983751037}, \
{3.7375, 0.4677012517422721}], 
          RectangleBox[{4., 0.45579648983751037}, \
{4.35625, 0.4677012517422721}], 
          RectangleBox[{4.75, 0.45579648983751037}, \
{5.10625, 0.4677012517422721}], 
          RectangleBox[{5.5, 0.45579648983751037}, \
{5.7375, 0.4677012517422721}], 
          RectangleBox[{4., 0.4796060136470343}, \
{4.35625, 0.49151077555179606}], 
          RectangleBox[{4.75, 0.4796060136470343}, \
{5.10625, 0.49151077555179606}], 
          RectangleBox[{5.5, 0.4796060136470343}, \
{5.7375, 0.49151077555179606}], 
          RectangleBox[{6., 0.4796060136470343}, \
{6.35625, 0.49151077555179606}], 
          RectangleBox[{6.75, 0.4796060136470343}, \
{7.10625, 0.49151077555179606}], 
          RectangleBox[{7.5, 0.4796060136470343}, \
{7.7375, 0.49151077555179606}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"7.88\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               12, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               18, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               18, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               18, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               18, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               30, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               30, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               36, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               54, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               66, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               66, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               72, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               78, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               78, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               84, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               90, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 127], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 113], 
               Sound`MIDIEvent[
               108, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               114, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               114, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               114, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               114, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               126, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               126, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               132, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               150, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               162, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               162, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               168, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               174, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               174, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               180, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               186, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 40, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               204, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               210, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               210, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               210, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               210, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               222, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               222, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               228, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               246, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               258, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               258, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               264, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               270, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               270, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               276, "NoteOff", "Note" -> 40, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               282, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               300, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               306, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               306, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               306, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               306, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               318, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               318, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               324, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               342, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               354, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               354, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               366, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               366, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                127], 
               Sound`MIDIEvent[
               372, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                113], 
               Sound`MIDIEvent[
               378, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 48]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    Sound[
     SoundNote[{-19}, 
      Rational[7, 4], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[1, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[5, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {1}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[11, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-12}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[13, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-17}, 
      Rational[7, 4], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[9, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[21, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {3}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[27, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-10}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[29, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-20}, 
      Rational[7, 4], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[17, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[37, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {5}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[43, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-13}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[45, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-15}, 
      Rational[7, 4], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[25, 4]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[53, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {7}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[59, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-8}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[61, 8]}, SoundVolume -> 1], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {0}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[3, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[3, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[9, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 0}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[3, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[7, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {2}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[19, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[11, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[25, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, -3, 2}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[7, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[15, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {4}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[35, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[19, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[41, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 2, 4}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[11, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[23, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {6}, SoundVolume -> 
     0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[51, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[27, 4]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[3, 8], "Piano", SoundVolume -> 1], {
      Rational[57, 8]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5, 0, 4}, 
      Rational[1, 4], "Piano", SoundVolume -> 1], {
      Rational[15, 2]}, SoundVolume -> 0.8944271909999159], 
    Sound[
     SoundNote[{-5}, 
      Rational[1, 8], "Piano", SoundVolume -> 1], {
      Rational[31, 4]}, SoundVolume -> 0.8944271909999159]}]]], "Output",
 CellChangeTimes->{
  3.724232892794984*^9, 3.7242329756506023`*^9, 3.7242330124968433`*^9, 
   3.724233053866782*^9, {3.724233100837002*^9, 
   3.724233115909008*^9}},ExpressionUUID->"097c4d07-433f-4e48-915d-\
7003cb8fbb90"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 998},
WindowMargins->{{-5, Automatic}, {1033, Automatic}},
Magnification:>3. Inherited,
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (2017\:5e7410\:67082\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 167, 3, 199, "Section",ExpressionUUID->"ba4f40ee-e2c9-4788-ba54-44a78ec75fb7"],
Cell[CellGroupData[{
Cell[772, 29, 323, 5, 159, "Subsection",ExpressionUUID->"fe755065-a28f-45aa-b815-c95c703872e8"],
Cell[1098, 36, 363, 6, 102, "Text",ExpressionUUID->"0090ccc7-6916-4730-8c47-d31eff41a0c6"],
Cell[CellGroupData[{
Cell[1486, 46, 344, 9, 85, "Input",ExpressionUUID->"88ce7aa1-d993-46d1-8186-75c1de9fd7a6"],
Cell[1833, 57, 8090, 177, 395, "Output",ExpressionUUID->"a92080c9-477e-4ae4-a0d7-b3af75cde49b"]
}, Open  ]],
Cell[9938, 237, 558, 8, 102, "Text",ExpressionUUID->"c3a238a4-d98f-472c-8b2a-db7331415cfe"],
Cell[10499, 247, 2036, 49, 781, "Input",ExpressionUUID->"f7f0d184-af23-49ec-ba1c-01b758131298"],
Cell[12538, 298, 723, 10, 168, "Text",ExpressionUUID->"d909806a-ce0a-4f4f-847d-8c84f7d1d3ca"],
Cell[13264, 310, 2080, 52, 318, "Input",ExpressionUUID->"b14557e3-9a2a-465e-81c5-967c0e373d28"],
Cell[15347, 364, 378, 6, 102, "Text",ExpressionUUID->"509a731b-513c-4792-bbc8-c544b524e8fe"],
Cell[CellGroupData[{
Cell[15750, 374, 1514, 31, 216, "Input",ExpressionUUID->"d081c1a8-7a53-4556-b994-16ed0246aed3"],
Cell[17267, 407, 21276, 465, 395, "Output",ExpressionUUID->"2c5da407-952a-431c-ac59-c4ec8ea39998"]
}, Open  ]],
Cell[38558, 875, 1442, 22, 366, "Text",ExpressionUUID->"af070f6f-d1c0-40e8-88a8-c0d8cb58a28f"],
Cell[40003, 899, 2240, 56, 318, "Input",ExpressionUUID->"96ce2e5c-c8b3-47e5-8125-e5c9c07e2be3"],
Cell[42246, 957, 150, 3, 102, "Text",ExpressionUUID->"266cf6ea-be15-4b60-8ec5-b346e8e59acb"],
Cell[CellGroupData[{
Cell[42421, 964, 328, 9, 85, "Input",ExpressionUUID->"754645a5-9d0a-4ed8-9aa5-a93070851f00"],
Cell[42752, 975, 201, 4, 97, "Output",ExpressionUUID->"b3b9ce23-4056-4946-bb5a-c3a42f64b3af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42990, 984, 300, 9, 85, "Input",ExpressionUUID->"71c93e8d-9c56-4cb1-92ad-662d1ef2619e"],
Cell[43293, 995, 131, 3, 97, "Output",ExpressionUUID->"7a9f3197-ac02-461b-876b-a98ec9260b8f"]
}, Open  ]],
Cell[43439, 1001, 1399, 24, 300, "Text",ExpressionUUID->"fd226dc3-f2ef-49d8-8837-7035ba63dfe1"],
Cell[44841, 1027, 2261, 49, 398, "Input",ExpressionUUID->"199ecab7-9301-475a-b477-a0d33e7b6ff7"],
Cell[47105, 1078, 365, 6, 102, "Text",ExpressionUUID->"65148ce2-04bc-4710-a048-9da30e2595e8"],
Cell[CellGroupData[{
Cell[47495, 1088, 203, 4, 85, "Input",ExpressionUUID->"e88ae1b6-aa36-4a3c-aad3-da5340877be8"],
Cell[47701, 1094, 261, 6, 97, "Output",ExpressionUUID->"48e72434-9437-453c-ab35-d7270648a093"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47999, 1105, 613, 14, 85, "Input",ExpressionUUID->"ea125e06-3650-474f-a328-a0b0b2ef25b6"],
Cell[48615, 1121, 441, 8, 97, "Output",ExpressionUUID->"bcadd8d4-6a73-463e-b572-3883debd5be1"]
}, Open  ]],
Cell[49071, 1132, 716, 12, 234, "Text",ExpressionUUID->"5f5c71dc-0c8f-4762-8f89-d438dc604dd2"],
Cell[49790, 1146, 2843, 69, 564, "Input",ExpressionUUID->"4ff88328-5956-47b4-9bdb-0751a7a84400"],
Cell[52636, 1217, 170, 3, 102, "Text",ExpressionUUID->"b05e041c-0662-4893-8c9b-a819c5cf3661"],
Cell[CellGroupData[{
Cell[52831, 1224, 1130, 30, 182, "Input",ExpressionUUID->"482b7e76-4d83-4768-868a-b14df6b39d8a"],
Cell[53964, 1256, 18209, 399, 433, "Output",ExpressionUUID->"d5afaeae-7cbb-45de-934d-97d6ea1a0269"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[72222, 1661, 172, 3, 159, "Subsection",ExpressionUUID->"612b4709-5e8e-4309-afad-b95517707bbc"],
Cell[72397, 1666, 385, 6, 102, "Text",ExpressionUUID->"057a9ca6-c37d-4665-9c49-8f04a9ad707a"],
Cell[72785, 1674, 760, 17, 182, "Input",ExpressionUUID->"53c4a9e7-0fe5-49f6-a379-f44d7f695a02"],
Cell[73548, 1693, 284, 4, 102, "Text",ExpressionUUID->"1a210ddc-0521-4020-9652-834ad8fa1790"],
Cell[73835, 1699, 1967, 44, 376, "Input",ExpressionUUID->"d0d79f2c-000e-4310-a623-3a51c12ea921"],
Cell[CellGroupData[{
Cell[75827, 1747, 485, 11, 182, "Input",ExpressionUUID->"88b355fe-094d-448b-9d0f-ea555a04c4a1"],
Cell[76315, 1760, 10973, 250, 433, "Output",ExpressionUUID->"4d34c0ed-9d2d-40da-88de-f6eb076a03e7"]
}, Open  ]],
Cell[87303, 2013, 2114, 46, 376, "Input",ExpressionUUID->"14890f55-20ad-47c7-a551-2519ee74f63f"],
Cell[CellGroupData[{
Cell[89442, 2063, 1188, 23, 298, "Input",ExpressionUUID->"10535dc6-761d-4fe0-b220-60236aff34b4"],
Cell[90633, 2088, 30503, 696, 433, "Output",ExpressionUUID->"57aa6444-5472-4745-b800-fbb82ba01042"]
}, Open  ]],
Cell[121151, 2787, 352, 5, 102, "Text",ExpressionUUID->"5551fc1f-e902-4b57-8e2a-b8118d77d0eb"],
Cell[121506, 2794, 2984, 71, 878, "Input",ExpressionUUID->"b18a1a32-0af8-4ee0-aa16-5d56bccbe116"],
Cell[CellGroupData[{
Cell[124515, 2869, 531, 13, 182, "Input",ExpressionUUID->"c97d10c2-0bdc-429a-aee8-3ce60a41fa7f"],
Cell[125049, 2884, 28613, 628, 433, "Output",ExpressionUUID->"d825a759-1dcc-4010-b64c-773096aa8291"]
}, Open  ]],
Cell[153677, 3515, 406, 6, 168, "Text",ExpressionUUID->"110170bf-6e44-4d51-b94b-78c513a5e246"],
Cell[CellGroupData[{
Cell[154108, 3525, 597, 14, 182, "Input",ExpressionUUID->"c8d53dbc-6c59-4fc8-a5f1-baf7532246ed"],
Cell[154708, 3541, 32394, 719, 433, "Output",ExpressionUUID->"96acaac7-d401-482a-981f-829c08700a4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187139, 4265, 730, 15, 182, "Input",ExpressionUUID->"037f2c94-a4ad-4210-9181-8e8d2ec027d9"],
Cell[187872, 4282, 21400, 468, 433, "Output",ExpressionUUID->"ebc6d406-0874-4318-a542-8b146a69374e"]
}, Open  ]],
Cell[209287, 4753, 168, 3, 102, "Text",ExpressionUUID->"f4838b47-5470-4b2d-88e6-ccdf09cb18c3"],
Cell[CellGroupData[{
Cell[209480, 4760, 862, 17, 182, "Input",ExpressionUUID->"3f8c3ed9-80b3-44af-81fd-7a50c50fcfac"],
Cell[210345, 4779, 48753, 1064, 433, "Output",ExpressionUUID->"1009d9b9-984e-4eef-8ddf-887d2698ec03"]
}, Open  ]],
Cell[259113, 5846, 164, 3, 102, "Text",ExpressionUUID->"3f0960d5-50fb-4603-99f3-1554d8063132"],
Cell[CellGroupData[{
Cell[259302, 5853, 908, 17, 182, "Input",ExpressionUUID->"c35cf01f-ff99-4606-bc90-a40bc7200875"],
Cell[260213, 5872, 24985, 551, 433, "Output",ExpressionUUID->"d88d5ace-5ab7-4177-8e70-b71d76ad4725"]
}, Open  ]],
Cell[285213, 6426, 164, 3, 102, "Text",ExpressionUUID->"c781c894-7057-43f0-94fc-94873aa3fec5"],
Cell[CellGroupData[{
Cell[285402, 6433, 1076, 20, 182, "Input",ExpressionUUID->"7770e5c4-0228-4ca3-9c8b-4e3084bb2e46"],
Cell[286481, 6455, 33474, 749, 433, "Output",ExpressionUUID->"097c4d07-433f-4e48-915d-7003cb8fbb90"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

